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GENERAL 

ABSTRACT 

MAINDEC-11-DZ02C RUNS THE SELFTEST FOR THE VT62 TERMINAL AND EXERCISES 
THE LINK BETWEEN THE TERMINAL AND THE HOST. THIS PARTICULAR VERSION 
SUPPORTS MULTIDROP, FULL CUPLEX COMMUNICATION VIA THE 02-11 COMMUNICATION 
INTERFACE. OTHER VERSIONS (MAINDEC-11-DZDPG AND MAINDEC-11-DZ2DVP) 
SUPPORT THE DUP-11 AND DV-11 COMMUNICATION INTERFACES RESPECTIVELY. THE 
PROGRAM IS XXDP COMPATIBLE AND SUPPORTS SEQUENTIAL TESTING OF UP TO 8 
VT62'S. PLEASE READ ALL SECTIONS OF THIS DOCUMENT CAREFULLY BEFORE USING 
THE PROGRAM. PAY PARTICULAR ATTENTION TO SECTIONS 3.0 THROUGH 6.0 


DEF INI TIONS 

MODEM - EQUIPMENT, ALSO KNOWN AS A “DATASET”. WHICH PERFORMS THE 
MODULATION/DEMODULATION OF DATA SIGNALS. THIS UNIT PROVIDES TIMING 
FOR SYNCHRONOUS COMMUNICATION DEVICES. 

MODEM ELIMINATOR - EQUIPMENT WHICH CONNECTS TWO SYNCHRONOUS DEVICES USING 
A CABLE RATHER THAN TELEPHONE VOICE LINES. THE ELIMINATOR HAS A 
CLOCK FOR TIMING. 

DOCMP PROTOCOL - DEC'S COMMUNICATION LINE PROTOCOL. 

UUT - UNIT UNDER TEST 

PTABLE - @ TABLE OF INFORMATION. WITH ENTRIES FOR EACH UNIT UNDER TEST, 
THAT DESCRIBES THE HARDWARE (BUS ADDRESS. VECTOR, ETC. ) 

DUP - SINGLE LINE, SYNCHRONOUS COMMUNICATION INTERFACE. 

DZ - EIGHT LINE. MULTIPLEXED, SYNCHRONOUS COMMUNICATION INTERFACE. 

DV - SIXTEEN LINE, MULTIPLEXED. SYNCHRONOUS COMMUNICATION INTERFACE. 

CRC acrae - CHECKSUM USED IN DEC NETWORK PROTOCOL (CYCLIC REDUNDANCY 

HECK). 

MICRODIAGNOSTIC - THE MICROCODE IN THE VT62 THAT PERFORMS THE DIAGNOSTIC 
CHECKOUT OF THE HARDWARE. (ALSO KNOWN AS “SELF TEST) 

SELF TEST - SEE “MICRODIAGNOSTIC”. 


DESIGN NOTES 

THIS PROGRAM WAS DESIGNED AND IMPLEMENTED USING STRUCTURED TECHNIQUES. 
THE PROCEDURE CAUSED THE PROGRAM TO HAVE SOME OPERATIONAL CHARACTERISTICS 
WHICH ARE OF INTEREST TO THE USER. THESE CHARACTERISTICS ARE DISCUSSED 
IN THIS SECTION. THIS DISCUSSION IS NOT VITAL TO LEARNING HOW TO OPERATE 
THE PROGRAM HOWEVER. 


THE MOST IMPORTANT OPERATIONAL CHARACTERISTIC OF STRUCTURED DESIGN .AS IT 
AFFECTS THE USER. 1S HOW ERRORS ARE REPORTED. THE TOP-DOWN DESIGN OF THE 
PROGRAM RESULTS IN A BOTTOM-UP REPORT OF ERROR INFORMATION. SEVERAL 
LINES OF ERROR INFORMATION ARE PRINTED AS EACH PROGRAM SECTION REPORTS 
1TS LEVEL OF INFORMATION. AN EXAMPLE OF THIS TYPE OF ERROR LOG WOULD BE 
A DZ ERROR. THE FIRST ERROR MESSAGE WOULD GIVE SPECIFIC DEVICE 
INFORMATION SUCH AS REGISTER CONTENTS AND THEN RETURN CONTROL TO THE NEXT 
LEVEL. AT THE NEXT LEVEL, THE LOGICAL DEVICE NUMBER OR DEVICE SERIAL 
NUMBER WOULD BE REPORTED. AT THE LEVEL ABOVE THAT. STILL MORE GENERAL 
epee WOULD BE G!VEN. THE REPORTS CONTINUE UNTIL THE HIGHEST LEVEL 
1S REACHED. 


COMMENT FIELDS IN THE LISTING WITH SQUARE BRACKETS ( » REFER TO 
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144 FUNCTIONAL BLOCKS IN THE DESIGN AND HAVE NO SIGNIFICANCE TO THE USER. 
_ THEY ARE RETAINED FOR USE BY PROGRAM MAINTAINERS. 

y 

147 1.4 DOCMP 

148 THIS SECTION GIVES A VERY BRIEF DESCRIPTION OF DDCMP AS USED BY THIS 
149 DIAGNOSTIC. THE DESCRIPTION 1S BY NO MEANS COMPLETE; IT IS INTENDED TO 
a HELP THE USER UNDERSTAND ERROR REPORTS. 

152 THERE ARE THREE TYPES OF DDCMP MESSAGES: CONTROL. DATA AND BOOTSTRAP. 
152 THE BOOTSTRAP MESSAGE IS NOT USED BY THIS DIAGNOSTIC. THE DATA MESSAGES 
154 CONSIST OF A 6-BYTE HEADER. A 2-BYTE CRC FOR THE HEADER. THE DATA ITSELF 
iss AND A 2-BYTE CRC FOR THE DATA. CONTROL MESSAGES CONSIST OF THE HEADER 
156 (AND ITS CRC) ONLY. ALL CONTROL MESSAGES HAVE AN “ENQ” CHARACTER AS THE 
157 FIRST BYTE. ALL DATA MESSAGES ARE NUMBERED SO THAT EACH STATION ON THE 
158 LINK CAN KEEP TRACK OF WHICH MESSAGES ARE TRANSMITTED PROPERLY. ALL 
159 MESSAGES HAVE A STATION ADDRESS IN THE HEADER SO THAT MESSAGES ARE 
160 DIRECTED TO AND FROM THE PROPER STATIONS ON A MULTIDROP LINE. 

161 

162 THERE ARE FOUR CONTROL MESSAGES USED BY THIS DIAGNOSTIC: ACK. NAK. STRT 
163 AND STACK. ACK IS AN ACKNOWLEDGEMENT THAT THE LAST MESSAGE SENT WAS 
164 PROPERLY RECEIVED. NORMALLY. MESSAGES ARE ACKNOWLEDGED BY SENDING A DATA 
165 MESSAGE WITH THE NUMBER OF THE LAST MESSAGE IN THE HEADER. ACK'S ARE 
166 USED WHEN THERE IS NO DATA MESSAGE TO SEND BACK. NAK IS A NEGATIVE 
167 ACKNOWLEDGEMENT FOR THE LAST MESSAGE SENT AND IT INDICATES THE THE REASON 
168 FOR THE ERROR. STRT IS USED TO INITIATE COMMUNICATION BETWEEN TWO 
169 STATIONS. THE RECEIVING STATION SETS ITSELF UP AND ACKNOWLEDGES THE STRT 
170 WITH A STACK, OR START ACKNOWLEDGE. THE STRT-STACK SEQUENCE IS USED 
171 BEFORE AND AFTER EACH TEST. ALL MESSAGES ARE REQUIRED TO BE ACKNOWLEDGED 
172 WITH EITHER A DATA MESSAGE OR AN ACK 

173 

174 

175 2.0 EQUIPMENT REQUIREMENTS 

176 THIS PROGRAM REQUIRES A PDP-11 WITH A MINIMUM OF 16K CORE AND A CONSOLE 
eg ee TERMINAL. A CLOCK OPTION IS NOT REQUIRED. BUT ONLY ROUGH TIMING IS 
72 AVAILABLE WITHOUT ONE. THE PDP-11 CONSOLE SWITCH REGISTER IS NOT USED. 
i73 ONE OR MORE O027-11'S MUST BE CONNECTED TO THE TERMINALS UNDER TEST VIA 
150 COMMUNICATION LINES THROUGH EITHER MODEMN'S OR NULL MODENM'S. THE VT62'S 
1$1 MUST BE IN ASYNCHRONOUS MODE AND ON-LINE. THE TERMINAL ADDRESS SWITCHES 
182 ON THE CONTEOL BOARD MUST BE SET TO MATCH THE TERMINAL ADDRESS ASSIGNED 
182 TO THE LOGICAL UNIT (SEE SECTION 4. 0). 

184 

18s 
186 3.0 LOADING PROCEDURE 

187 THIS PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER. \T 
188 MAY ALSO BE LOADED FROM PAPER TAPE OR DISK USING XXDP PROCEDURES 

189 

190 

191 & 0 STARTING AND RUNNING THE PROGRAM 

192 THE STARTING ADDRESS FOR THE PROGRAM |S 200. THE PROGRAM WILL FIRST ASK 
192 iF A CLOCK CKWL11-L OR KW11-P) 1S AVAILABLE. IT WILL THEN ASK IF A LINE 


194 PRINTER 1S AVAILABLE. IF A LINE PRINTEP !S SPECIFIED. THE PROGRAM WILL 
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198 
199 ASK FOR ITS ADDRESS (DEFAULT = 177514). THE PROGRAM ALSO ASKS FOR MEMORY 
2 S!ZE, Q@-BUS OPTION AND LINE FREQUENCY. IF NEITHER CLOCK IS SPECIFIED, 
201 THE PROGRAM WILL ASK THE USER TO TYPE TWO CHARACTERS. FIVE SECONDS APART. 
os IN ORDER TO PROVIDE ROUGH TIMING. 
~ 
204 THE PROGRAM WILL THEN PROMPT THE USER BY TYPING A ">". NOW THE USER MAY 
20s TYPE ONE OF SEVEN COMMANDS: STAC(RT). RES(TART). CONC(TINUE). ZFL(AG), 
206 ADD, DROCP) OR DIS(PLAY), WHERE THE LETTERS IN PARENTHESIS NEED NOT BE 
20? TYPED. IF A TYPING MISTAKE 1S MADE, THE RUBOUT KEY IS USED TO DELETE THE 
208 LAST CHARACTER(S) TYPED. THE PROGRAM WILL TYPE A MESSAGE IF THE COMMAND 
20s 1S INVALID. EACH OF THESE COMMANDS |S EXPLAINED IN THE SECTIONS BELOW. 
210 SWITCHES ARE USED TO SET SOFTWARE FLAGS SUCH AS “LOOP ON ERROR”. THE 
211 FLAGS USED BY THIS PROGRAM ARE DESCRIBED IN SECTION 4. 8 
ee 
213 4 4 START 
214 THE START COMMAND (STA) ZEROS ALL FLAGS (PRINT ALL ERROR MESSAGES AND DO 
215 NOT LOOP WITHIN TESTS) AND INITIATES THE OPERATOR DIALOGUE. AT THIS 
216 POINT, THE DEVICE TABLE (PTABLE) 1S EMPTY AND THE OPERATOR MUST USE THE 
217 DIALOGUE TO DESCRIBE ALL UUT'S AS SHOWN BELOW. THE NUMBERS IN SQUARE 
218 BRACKETS, , RELATE THE TYPEOUT TO THE EXPLANATION BELOW AND ARE NOT 
219 TYPED IN QCTUAL OPERATION. THE PROCEDURES FOR HANDLING TYPING ERRORS ARE 
sy ALSO DESCR'BED BELOW. CR REFERS TO THE RETURN KEY (CARRIAGE RETURN). 

1 
222 DIALOGUE 
223 
224 # UNITS ? (DECIMAL) 1 
225 
22¢ DZ ADDRESS. 7? (OCTAL) NNNNNN 2 
22 
228 DZ VECTOR: ? ©OCTAL) NNN 3 
229 
230 D2 BUS PRIORITY: 7? (OCTAL) N 4 
231 
as Be TERMINAL ADDRESS: 7? (OCTAL) N 5 
233 
oe LINE NUMBER: ? (OCTAL) N 6 
235 
236 BAUD RATE: ? (OCTAL) N ? 
237 
236 STOP CODE/CHAR. LENGTH: 7? (OCTAL) N § 
239 
240 CHANGE S.W. 7? CY OR N) 9 
241 
242 HOW MANY INITIATE TRIES BEFORE ABORT 7 (OCTAL) 10 10 
243 
244 USE ALL ZERO'S FOR LOOPBACK DATA ? (Y OR Ni Y il 
245 
246 EXPLANAT ! ON 
247 
248 1 TYPE THE TOTAL NO OF UWUT'S IN DECIMAL. QUESTIONS 2 


Z49 THROUGH 5 WILL BE REPEATED UNTIL ALL UUT'S HAVE BEEN 
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DESCRIBED. THE USER DOES NOT HAVE TC ANSWER THESE QUESTIONS 
FOR EACH O2 HOWEVER. IF THERE ARE MULTIPLE UUT'S PER 0Z OR 
PER DZ LINE. THE EXPLANATION FOR QUESTION 5 SHOWS HOW TO 
ENTER MULTIPLE UUT'S. 

TYPE THE BUS ADDRESS OF THE DZ. THIS MUST BE AN EVEN OCTAL 
NUMBER NOT GREATER THAN 177776. THE USER MAY TYPE CR TO USE 
THE DEFAULT VALUE: NNNNNN 

TYPE THE VECTOR ADDRESS FOR THE OZ. THIS MUST BE AN EVEN 
OCTAL NUMBER NOT GREATER THAN 376. THE USER MAY TYPE CR TO 
USE THE DEFAULT VALUE: NNN. 

TYPE THE BUS PRIORITY LEVEL OF THE DZ. THIS MUST BE A DIGIT 
FROM 0 TO 7. AGAIN. THE USER MAY TYPE CR TO GET THE DEFAULT 


VALUE: N. 

TYPE THE TERMINAL ADDRESS FOR EACH TERMINAL ATTACHED TO THE 
OZ LINE. SEPARATE EACH ADDRESS WITH A COMMA. THIS IS THE 
ADORESS SELECTED BY THE SWITCHES ON THE 1/0 BOARD IN’ THE 
TERMINAL AND 1S AN OCTAL NUMBER BETWEEN 0 AND 377. THE USER 
MAY TYPE CR TO GET THE DEFAULT VALUE: N. 

TYPE THE DZ LINE NUMBER (0-7) TO WHICH THE TERMINAL IS 
ATTACHED. TYPE CR TO GET THE DEFAULT OF N. 

TYPE THE CODE FOR THE BAUD RATE DESIRED. THE CODES ARE 
GIVEN IN THE TABLE BELOW TYPE CR TO GET THE DEFAULT: N. 


BAUD RATE TABLE 
TYPE TO GET THIS RATE 
5 


te eee TIN SLO 
o> 
° 
° 


_— — 
NOMS ito Oo 
Ns 
bo 
oO 
oO 


9600 
19, 200 


FOR FASTER TESTING. USE AS HIGH A BAUD RATE AS PRACTICAL. A 
BAUD RATE OF 19,200 IS NOT AVAIABLE ON THE VT62. 


TYPE A CODE TO SELECT THE STOP CODE AND CHARACTER LENGTH. 
THE CODES ARE GIVEN IN THE TABLE BELOW 


STOP CODE/CHARACTER LENGTH 
TYPE STOP CODE LENGTH 
“9 1 BIT 5 BITS 
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NOW SWN 
i) 
:o 
— 
“ 
One Mone 


IF THE USER WISHES TO CHANGE EITHER OF THE TWO SOFTWARE 
PARAMETERS DESCRIBED FOR QUESTIONS 7 OR 8, HE MUST ANSWER 
THIS QUESTION BY TYPING “Y". IF THE USER WISHES TO BYPASS 
QUESTIONS 7 AND 8. HE TYPES “N”. 

TYPE THE NUMBER OF TIMES THE PROGRAM IS TO ATTEMPT TO 
INITIALIZE A OUP BEFORE ABORTING THE UNIT. THE USER MAY 
TYPE ANY OCTAL NUMBER BETWEEN 0 AND 177777. TYPE CR TO 
DEFAULT TO 10 (OCTAL) ATTEMPTS 

IF THE USER TYPES “Y", THE LOOPBACK DATA WILL BE 255 ZERO 
BYTES. \F THE USER TYPES "“N". THE LOOPBACK DATA WILL BE A 
PATTERN OF ALTERNATING 1 AND O BITS. SEE SECTION 8 2 FOR 
DETAILS ON THE LOOPBACK TEST. 


EXAMPLE OF DIALOGUE 

ASSUME THE FOLLOWING HARDWARE CONFIGURATION: A 02 
(160000, 300.3) WITH TWO TERMINALS (ADDRESSES 0 AND 1) ON 
LINE O, A SECOND DZ (160010.320,3) WITH A SINGLE TERMINAL 
(ADDRESS 5) ON LINE 2 AND A THIRD OZ (170000, 340.4) WITH 
THREE TERMINALS (ADDRESSES 0) ON LINES 1. 2 AND 3. NOT= 
THAT VARIABLE BAUD RATES CAN BE SPECIFIED. THE USER WOULD 
USE THE FOLLOWING DIALOGUE TO SET UP THE PROGRAN: 

>STA 

# UNITS ? (DECIMAL) 6 

DZ ADDRESS: 7 (QCTAL) 160000 

OZ VECTOR: 7? (OCTRL) 310 300 

DZ BUS PRIORITY: ? «OCTAL) 4 3 

TERMINAL ADDRESS: 7? «OCTAL) O Q.1 

LINE NUMBER: ? (OCTAL) 0 

BAUD RATE: 7? (OCTAL) 0 16 

STOP CODE/CHAR. LENGTH ‘SEE DOC): ? (OC TAL) O 7 

DZ ADDRESS: ? (OCTAL) 160000 160010 


OZ VECTOR: 7? <OCTAL) 300 320 
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DZ BUS PRIORITY: ? (OCTAL) 3 
TERMINAL ADDRESS: 7? (OCTAL) 1 5 
LINE NUMBER: 7? (OCTAL) O 2 
BAUD RATE: 7? (OCTAL) 16 7 
STOP CODE/CHAR. LENGTH (SEE DOC. ): 7? (OCTAL) 7 
DZ ADDRESS: 7? (OCTAL) 160010 170000 
DZ VECTOR: ? (OCTAL) 320 340 
O02 BUS PRIORITY: ? (OCTAL) 3 5 
TERMINAL ADDRESS: 7? (OCTAL) 5 QO 
LINE NUMBER: ? (OCTAL) 2 1-3 
BAUD RATE: ? (OCTAL) 7 7,16-7 
STOP CODE/CHAR. LENGTH (SEE DOC. ): 7? (OCTAL) 7 
CHANGE S. W. 7? (Y OR N) N 
(NOTE WHERE CR WAS USED TO ACCEPT THE DEFAULT) 
TYPING ERRORS 

(1) — RUBOUT KEY 1S USED TO DELETE ANY CHARACTERS WHICH ARE IN 
ERROR. 

(2) IF THE RESPONSE IS NOT WITHIN LIMITS OR IS IN THE WRONG 
FORMAT, THE PROGRAM WILL NOTIFY THE USER AND ASK THE 
QUESTION AGAIN. 

(3) WHEN ENTERING MULTIPLE TERMINAL ADDRESSES FOR A SINGLE O02, 

THE USER MAY NEGLECT TO TYPE ONE OR MORE ADDRESSES. IN SUCH 

A CASE. THE USER MERELY ENTERS THE SAME DZ ADDRESS. VECTOR 

AND PRIORITY IN THE NEXT SERIES OF QUESTIONS AND THEN ENTERS 

THE REMAINING TERMINAL ADDRESSES. REMEMBER; THE SERIES OF 

QUESTIONS (2 THROUGH 5) WILL BE RE-ASKED UNTIL ALL UUT'S 

HAVE BEEN ACCOUNTED FOR. 
RESTART 
THE RESTART COMMAND (RES) STARTS THE PROGRAM WITHOUT CLEARING THE PTABLE. 
ALL FLAGS REVERT TO THEIR INITIAL STATE UNLESS THE FLAG SWITCH IS USED TO 
CHANGE THEM (SECTION 4.8). THE OPERATOR DIALOGUE DESCRIBED IN 4.1 DOES 
NOT TAKE PLACE UNLESS REQUESTED. WHEN THIS COMMAND |S USED. THE PROGRAM 
WILL ASK IF THE USER WISHES TO CHANGE THE HARDWARE TABLE AND IF HE WISHES 


TO CHANGE THE SOFTWARE TABLE. IF THE USER ANSWERS YES (BY TYPING “Y") TO 
THE HARDWARE TABLE QUESTION. THAT PORTION OF THE DIALOGUE DESCRIBED IN 
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op ae 4.1 BEGINNING WITH QUESTION 1 ENDING WITH QUESTION 5 WILL TAKE 
LACE. IF THE USER ANSWERS YES TO THE SOFTWARE TABLE QUESTION. HE WILL 
BE ASKED QUESTIONS 7 AND 8. 


THE MOST COMMON USE OF THIS COMMAND IS TO CHANGE RUN-TIME FLAGS OR TO 
ADD/DROP UNITS. THESE FLAGS ARE DESCRIBED IN SECTION 4.8 - SWITCH 
OPTIONS. TYPING A" C" WILL FORCE THE SUPERVISOR TO ISSUE A PROMPT 
CHARACTER (">") SO THAT THE USER MAY USE THE RESTART COMMAND FOR THIS 
PURPOSE. NOTE: if THE USER USES THE START COMMAND AFTER A C, HE WILL 
HAVE TO REENTER ALL DEVICE INFORMATION! 


CONT | NUE 

THE CONTINUE COMMAND WILL RESTART THE PROGRAM AT THE TEST WHICH WAS 
INTERRUPTED. UNLIKE THE RESTART COMMAND, THIS COMMAND DOES NOT FORCE 
FLAGS BACK TO THE INITIAL STATE. THE FLAGS WILL REMAIN AS SET UP DURING 
THE LAST START OR RESTART. THE USER HAS THE SAME DIALOGUE AND FLAG 
OPTIONS AS DESCRIBED FOR THE RESTART COMMAND 


ZERO FLAGS 

THIS COMMAND WILL ZERO ALL FLAGS (SECTION 4.8) AND TYPE A_ PROMPT. 
SECTION 4 8 DESCRIBES THE EFFECTS OF CLEARING ALL FLAGS. BUT ESSENTIALLY. 
ALL LOOPING AND HALTS WILL BE DISABLED AND ALL ERROR INFORMATION WILL BE 
PRINTED IN THE EVENT OF AN ERROR 


ADD UNITS 
WHILE TESTING MULTIPLE UNITS. THE USER MAY WISH TO DROP A PARTICULAR UNIT 
FROM THE TEST PROCEDURE AND. LATER ON. BEGIN TESTING THAT UNIT AGAIN. IN 
THIS CASE, THE USER NEED NOT STOP THE DIAGNOSTIC AND REBUILD THE PTABLE. 
AFTER A UNIT HAS BEEN DROPPED (SEE SECTION 4.6). THE USER MAY ADD THE 
UNIT BY TYPING “ C" AND oe ADD COMMAND AS FOLLOWS: 

7UNI: N 


WHERE N 1S A DECIMAL UNIT NUMBER THAT SPECIFIES THE UNIT TO BE ADDED. 
UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH THEY WERE 
SPECIFIED FOR THE HARDWARE TABLE. MULTIPLE UNITS MAY BE ADDED BY TYPING 
EACH UNIT NUMBER SEPARATED BY COLONS (1.E., ADD/UNI: 2:4: 22) OR BY TYPING 
THE FIRST AND LAST UNIT NUMBERS OF A CONTIGUOUS GROUP OF UNITS SEPARATED 
BY A DASH (1.€.. ADD/UNI: 1-10 WILL ADD THE FIRST TEN UNITS). NOTE: 
AFTER A START COMMAND, ALL UNITS ARE CONSIDERS ADDED. THERE 1S NO NEED 
TO USE THE ADD COMMAND UNLESS THE UNIT WAS DROPPED. 


DROP UNITS 
TO REMOVE A UNIT FROM TESTING. THE DROP COMMAND (DRO) IS_ USED. TO USE 
THIS COMMAND, TYPE “ C" AND DROP THE UNIT(S) USiNG THE DROP COMMAND AS 


FOLLOWS: 
DRO/UN!: N 

WHERE "N" 1S A DECIMAL UNIT NUMBER WHICH SPECIFIES THE UNIT TO BE 
DROPPED. UNITS ARE NUMBERED FROM 1 TO 32 ACCORDING TO THE ORDER IN WHICH 
THEY WERE SPECIFIED FOR THE HARDWARE TABLE. MULTIPLE UNITS MAY BE 
DROPPED BY TYPING EACH UNIT NUMBER SEPARATED BY COLONS (I.E., 
DRO/UNI: 1: 3:7) OR BY TYPING THE FIRST AND LAST UNIT NUMBERS OF A 
CONTIGUOUS GROUP SEPARATED BY A DASH (!.E.. ORO/UNI: 1-9 CAUSES THE FIRST 


SEQ 0010 
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NINE UNITS TO BE DROPPED). AFTER THE PROGRAM IS RESTARTED, THE SPECIFIED 
UNIT(S) WILL NOT BE INCLUDED FOR TESTING. 


DISPLAY PTABLE 

WHEN THE DISPLAY COMMAND IS TYPED. THE ENTIRE CONTENTS OF THE PTABLE WILL 
BE PRINTED. UNITS THAT HAVE BEEN DROPPED WILL BE SO MARKED. THIS 
COMMAND 1S USEFUL FOR VERIFYING THE PTABLE CONTENTS. 


SWITCH OPTIONS 

THERE ARE THREE SWITCH OPTIONS AVAILABLE FOR USE WITH THE COMMANDS: 

7TES:, /PAS: AND /FLA:. THE TEST SWITCH. /TES:. 1S USED ONLY WITH THE 

START COMMAND AND THE RESTART COMMAND. 1T tS USED TO SPECIFY THE 
INDIVIDUAL TEST(S) TO BE RUN IN CASES WHERE ALL TESTS ARE NOT TO BE RUN. 

AA antl: IF THE USER WiSHED TO RUN THE LOOPBACK TEST ONLY. HE WOULD 
YPE: 


>STA/TES: 2 
1F THIS SWITCH IS NOT USED. ALL TESTS WILL BE RUN AS THE DEFAULT 
CONDITION. 


THE PASS SWITCH 1S USED TO SPECIFY THE NUMBER OF PASSES TO BE RUN. TO 
RUN THE LOOPBACK TEST TWENTY TIMES. THE USER WOULD TYPE: 

>STA/TES: 2/PAS: 20 
THIS SWITCH MAY BE USED WITH THE START. RESTART AND CONTINUE COMMANDS. 
THE DEFAULT CONDITION IS ESSENTIALLY AN INFINITE NUMBER OF PASSES. 


THE FLAG SWITCH 1S USED TO SET FLAGS WHICH CONTROL PROGRAM OPERATION AND 
ERROR PRINTOUTS. THIS SWITCH MAY BE USED WiTH THE CONTINUE COMMAND AS 
WELL AS THE START COMMAND AND RESTART COMMAND. THE AVAILABLE FLAGS ARE 
SHOWN 'N THE TABLE BELOW. 


FLAG EFFECT IF SET 


LOE LOOP ON ERROR 

HLT HALT ON ERROR 

IER INHIBIT ERROR REPORTS 

IBE INHIBIT BASIC ERROR REPORTX 

1XE INHIBIT EXTENDED ERROR REPORTX 

PRI SEND ALL TYPEOUTS TO THE PRINTER 

BOE BELL ON ERROR 

UAN UNATTENDED MODE (NO MANUAL INTERVENTION) 

PNT PRINT TEST NUMBER 

XSEE SECTION 5.0 

EXAMPLE: 


IF THE USER WISHES TO - THE PROGRAM WITHOUT ERROR MESSAGES AND HAVE IT 
LOOP ON cRROR, HE WOULD TYPE: 
>RES/FLA: LOE: IER 


EXAMPLE: 
IF THE USER LATER WANTED TO STOP THE LOOP ON ERROP FEATURE. HE WOULD 


TYPE: 
>CON/FLA: LOE=0 
NOTE: THE ERROR REPORTS WOULD STILL BE INHIBITED 


a 





GUTERR MACY11 30(1046) 


DZ02CA. Pil 


22-NOV-77 07:50 PAGE 12 
21-NOV-77 14:55 


5.0 


PAGE 12 
ALL FLAGS ARE DEFAULTED TO ZERO (NOT SET). 


ERROR AND INFORMATIONAL MESSAGES 

AS NOTED IN THE DESIGN NOTES (SECTION 1.3). A SINGLE ERROR MAY RESULT IN 
SEVERAL MESSAGES BEING TYPED. THIS 1S OUE TO THE STRUCTURE OF THE 
PROGRAM. EACH SECTION. we THE EVENT OF AN ERROR, REPORTS THE INFORMATION 
AVAILABLE TO IT THE FINAL MESSAGE FOR EACH ERROR CONTAINS THE UNIT 
NUMBER (DECIMAL 1 1 TO 32 - SEE SECTIONS 4.5 AND 4.6) AND THE PHRASE: 
“"END OF ERROR REPORT" 


THERE ARE THREE LEVELS OF ERROR REPORTS. BY USING THE FLAG SWITCH 
(SECTION 4.8), ONE OR MORE LEVELS OF REPORT MAY BE INHIBITED. THE FIRST 
LEVEL CONSISTS OF AN ERROR NUMBER. PC CONTENTS AND ERROR TYPE (HARD. SOFT 
OR FATAL). THE ERROR NUMBER CAN BE RELATED TO THE TABLE AT THE END OF 
THIS SECTION. THE PC CONTENTS GIVE THE ADDRESS WHERE THE ERROR REPORT 
MECHANISM WAS INVOKED. THE NEXT LEVEL (BASIC ERROR REPORT) GIVES AN 
ENGLISH DESCRIPTION OF THE ERROR. AN EXAMPLE OF THIS TYPE OF MESSAGE IS: 
“HEADER HAS CRC ERROR". THE FINAL LEVEL (EXTENDED ERROR REPORT) GIVES 
ADDITIONAL DATA CONCERNING THE ERROR, SUCH AS REGISTER CONTENTS. 


*y INHIBIT SOME OR ALL ERROR MESSAGES. USE THE FLAGS DESCRIBED IN SECTION 

4. 8. THE INHIBIT-EXTENDED-ERROR-REPORT FLAG (1XE) INHIBITS THAT LEVEL 
ONLY. THE INHIBIT-BASIC-ERROR-REPORT FLAG (1BE) INHIBITS BOTH BASIC AND 
EXTENDED ERROR REPORTS. FINALLY. THE INHIBIT-ERROR-REPORT FLAG (IER) 
INHIBITS ALL TYPEOUTS. 


TABLE OF ERROR NUMBERS 
NO. ERROR DESCRIPTION 


00 CANNOT INITIALIZE DZ 

01 REPLY MESSAGE FROM TERM. WAS NOT AN ENQ 
O02 REPLY FROM TERM. WAS NOT EXPECTED TYPE OF CONTROL MESSAGE 
O03 TERM. ADDRESS IN RESPONSE WAS NOT COORECT 
O04 RESPONSE HAD CRC ERROR IN THE HEADER 

20 O02 TRANSMIT ERROR 

21 OZ RECEIVE ERROR 

22 MESSAGE TO TERMINAL WAS NOT ACK'ED 

Z ERROR OCCURRED WHILE INITIALIZING DZ 

24 ERROR OCCURRED DURING TRANSMISSION 

25  DDCMP STRT MESSAGE DID NOT GET A STACK 

26 ERROR DURING RECEPTION 

31 TIMEOUT WHILE WAITING FOR RESPONSE 


40 SEE 21 
41 SEE O4 
42 SEE 


03 
43 MESSAGE DATA HAD CRC ERROR 
50 ERROR OCCURRED DURING SELFTEST (TEST #1) 
51 ERROR OCCURRED DURING LOOPBACK (TEST #2) 
2 ERROR IN RECEIVED DATA 


SEQ ay 


ono 
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70 §=©SELFTEST RESPONSE IN ERROR (NOT RECOGNIZED) 
71 TERMINAL MEMCRY ERROR 
72 TERMINAL CONTROL-ROM ERROR 


RESTRICTIONS 

THIS DIAGNOSTIC DOES NOT ATTEMPT TO TEST THE 0Z11. iF A LARGE NUMBER OF 
COMM ERRORS OCCUR. OR IF ATTEMPTS TO SEND OR RECEIVE DATA TO AND FROM THE 
TERMINAL FAIL; USE THE SPECIFIC D211 DIAGNOSTICS TO VERIFY THE 0211. 


MISCELLANEOUS 

PLEASE REPORT ALL PROGRAM PROBLEMS VIA THE AIDS REPORTING SYSTEM. REFER 
ALL COMMENTS REGARDING DOCUMENTATION TO DIAGNOSTIC ENGINEERING TERMINAL 
GROUP IN MAYNARD. MASS. 


TEST DESCRIPTIONS 

MICRODIAGNOSTIC (TEST #1) 

THE MICRODIAGNOSTIC. OR SELFTEST. IS ROM RESIDENT CODE IN THE VT62_ THAT 
1S EXECUTED UPON COMMAND FROM THE HOST COMPUTER OR DURING POWER UP. A 
FULL DESCRIPTION OF THE TEST IS AVAILABLE IN THE HARDWARE MANUAL FOR THE 
VT62. ESSENTIALLY. THE TEST VERIFIES THE MICROPROCESSOR. CHECKS ROM 
MEMORY. EXERCISES RAM MEMORY AND EXERCISES THE SCREEN. THE HOST MAY 
REQUCST THE RESULTS OF THE TEST. IN ANY CASE. THE RESULTS ARE ALWAYS 
DISPLAYED ON THE LAST LINE OF THE SCREEN. THE FIRST CHARACTERS ARE A 
CODED ERROR REPORT FOR THE HOST COMPUTER AND THE REMAINDER OF THE LINE IS 
AN ENGLISH DESCRIPTION OF THE ERROR STATUS. 


LOOPBACK (TEST #2) 

IN THIS TEST. THE TERMINAL 1S COMMANDED TO ENTER LOOPBACK MODE AND A 
SINGLE, 256(DECIMAL) BYTE DATA MESSAGE IS SENT TO THE TERMINAL. THIS 
DATA MESSAGE WILL HAVE A DDCMP PROTOCOL ENVELOPE. WHEN THE DATA IS 
RETURNED, THE TERMINAL IS TAKEN OUT OF LOOPBACK MODE USING A DOCMP “STRT™ 
SEQUENCE. THE CRC CHECKSUMS ARE VALIDATED FOR BOTH THE MESSAGE HEADER 
AND THE MESSAGE DATA. THE DATA 1S THEN CHECKED, BYTE BY BYTE. THUS 
ag Fae POSSIBLE ERRORS DETECTED: NO TERMINAL RESPONSE. BAD CRC 
0 : 


INTERPRETATION OF ANY ERROR MESSAGES REQUIRES SOME EDUCATED GUESSWORK 
BECAUSE OF THE NUMBER OF COMPONENTS IN THE COMMUNICATION LINK. 
INTERMITTENT ERRORS WOULD GENERALLY INDICATE LINE PROBLEMS UNLESS THE 
LINE 1S PHYSICALLY SHORT OR THE ENVIRONMENT IS RELATIVELY NOISE FREE. IF 
EITHER OF THESE CONDITIONS IS THE CASE OR IF THE ERROR IS NOT 
INTERMITTENT. THEN THE TERMINAL 170 BOARD. THE MODEM AND THE DUP ARE 
SUSPECT. IF THERE 1S NO TERMINAL RESPONSE. RUN THE TERMINAL SELF TEST 
OFF-LINE. THIS WILL SHOW WHETHER THE TERMINAL IS COMPLETELY “DEAD” OR 
THE PORTIONS OF THE COMMUNICATION LINK MENTIONED ABOVE ARE BROKEN. 


THERE ARE TWO DATA PATTERNS AVAILABLE FOR LOOPBACK: ALL ZERO'S AND 
ALTERNATING 1/0 BITS (1.E., BYTES OF 252,125.252.125....). THE ZERO 


SEQ 0013 


on 
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635 PAGE 14 


638 PATTERN 1S NOISE-SUSCEPTIBLE. HOWEVER THE ALTERNATING BITS PATTERN 


639 EXERCISES THE DATA PATHS BETTER. SECTION 4.0 SPECIFIES HOW TO SELECT THE 
640 PATTERN. 





¢c 8 
QUTERR MACY11 30(1046) 22-NOV-77 07:50 PAGE 15 
DZD2CA. P11 21-NOV-77 14:55 SEQ 0015 | 
642 PAGE 15 | 
643 
644 
645 9.0 INDEX ; 
646 
647 Pe Ee ee Sa 
648 6 Gente os on wc 
649 
650 eb ME eS ee eee 
651 
652 CONTINUE COMMAND .........~ 10-11 
653 OO ee 2 Oe ee ce Se ae 
654 
655 Sette : Vea a a ao eee 
non SiSPLEY COVMeee = 6. cS Sie | es 11 
bS> cage Come. ne he oi es oes ae 
655 
659 Reel se er ce, Ce et eee 
660 Saneh WHEE So ee Oe eee 
661 reek BSCRT a St ee 
662 
663 a Patek PRS Tae Ce EES RE 
664 
665 TS ee ee EES PO 
666 
667 mT wht. oS Serr ee 
668 ma THal it’s 2. Ba ee a 
669 
670 li Saad gy rad a eee id, 
671 
672 | PME SS oo Se ee 4, 10-11 
673 
674 RESTART COMMAND. ....... ~~.) 98 
675 
676 wre SS ‘ 12 
677 erent Comte® os es 6 10-11 
678 Stes £0008 Bolt ee, oa ee 
679 CURT | ee) st ae ea ae a ee 
eso SWITCH OPTIONS 10 
681 SWITCH OPTIONS 11 
682 SWITCHES 6 
682 
bey UNiT NUMBER . ot loa 1; 32 
ess 


656 ENDR * 
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002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
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002000 


. =2000 


HEADER - VT62 ACCEPTANCE TEST 


aAd 

00 
CSREVISION 
CSEDIT 


oOno0000000 


LSDISPATCH 
LSINIT 
LSCLEAN 
LSHARD 
LSSOFT 
LSOVTYP 
LSRPT 
LSHW 
LSS 
LSOR 
“eee: 


LSAU 
L$0U 
0 


LSLAST 


SEQ 0016 


OUTERR 
D202cA 


ee ee eee ee ee ee ee et ee et ee 


nee tees es el ae ee Be Be ae ee ee ee 
ee ee ee em ee me ee ee et et 
a a 
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100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000901 


001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000040 
000037 
000036 
000035 
000034 


000020 
000017 
000016 
000015 
000014 
000013 
000012 
000011 
000010 
006007 
000006 
ooo00s 


+ MEXKAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


GLOBAL EQUATES 


; A x 
+ MAXXKAAAAAAAAAA AAA AAA AAA AAS KARA AAA AAA AAA EE 


; BIT DIFINITIONS 
100000 


HAHAHAHAHAHA HAHAH HAHAHA ttt 


oot tt te te ee ee ee 
oot tf tt te ee ee ee ee 
pos 
Oo 
oO 


oo th ee eee eae 
oo 
= 
oO 
P= 


~— MDODDBMOMDWDOMDMO: DDDDMDOBDWDDOBDOOOOOOD: 
ab Ge ou Gee as on ee a te 


EVENT FLAG DEFINITIONS 


EF. START== 32. 
EF. RESTART== St. 
EF CONTINUE== 30. 


EF 1 
EF 1 


m 

nn 

oe 
WOoernNwewmo 
Non to wow on on on 
C= NUE 


mm 
oa 
oOo 


m 
nn 
Oo 
o 
WO S00 80 wm we ee 


, 


EF32: EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUN! CATION 
; EF 16: EFO1 AVAILABLE FOR PROGRAM USE 


START COMMAND WAS ISSUED 


> RESTART COMMAND WAS ISSUED 

> CONTINUE COMMAND WAS ISSUED 

> A NEW PASS HAS BEEN STARTED 

> A POWER-FAIL/ZPOWER-UP OCCURRED 


| 
cae 


SEQ 0017 


——---------— -- 
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ooo004 EFOUs: 4 
000003 EFO3== 3 
o00u02 EFO2== 2 
000001 EFOiz= 1 | 


ee 
ee ee 


ee ee ee ee et ee et et ot et 


000340 PRIO7== 340 
000300 PRIOQ6== 300 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIOZ== 100 
' 000040 PRIOi== 4O 
‘ 000000 PRIOO== 0 
5Sle . 
5827 ; 
te ; VT62 DIAGNOSTIC EQUATES 
5830 c00201 SOH=201 ; START OF HEADER (DOCMP ) 
5831 000901 ACK=1 ; ACKNOWLEDGE fe 
5832 000002 NAK=2 ;NEGATIVE ACKNOWLEOGE “ 
5833 000003 REP=3 ; REPLY 
5834 000005 ENQ=5 > ENQUIRY mn 
5835 oo0006 STRT=6 ; START ‘i 
5826 000007 STACK=7 > START ACKNOWLEDGE " 
5841 000377 SYNC=377 ; SYNCHRONIZATION CHARACTER 
5843 000220 DLE=220 ;DATA LINK ESCAPE 
5844 000024 _ OSOP=24 > LOOPBACK 
584s 000200 PARI TY=200 >PARITY BIT. 
5853 000062 TSTS=2 >NO. OF TESTS 
5859 oo000n RCVCSR=0 : OFFSETS: RECEIVER CSR 
5860 000002 RCVBUF=2 i RECEIVER BUFFER REG 
5861 oo0004 XMTCSR=4 ; TRANSMITTER CSR 
5862 oou0n0e XMTBUF =6 ; TRANSMITTER BUFFER REG 
5804 
587 ;HARDWARE REGISTER BiT DEFINITIONS 
550 000020 MASCLR=20 >MASTER CLEAR 
5881 000040 MSCNEN=40 ;MASTER SCAN ENABLE 
5882 000100 RXINTE=100 ;RECEIVE INTERRUPT ENABLE 
5883 040000 TXINTE=40000 ; TRANSMIT INTERRUPT ENABLE 
5884 100090 INVDAT=100000 ; INVALID DATA 
5885 010000 RENABL=10000 >RECEIVE ENABLE 
=886 000017 LINEMK=17 >LINE BITS MASK 
5942 177400 HYBYTE=177400 ;MASK FOR HIGH BYTE OF A WORD 
5943 000377 LOBYTE=377 :MASK FOR LOW BYTE OF A WORD 


OUTERR 


D202CA. 
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002100 
002102 
002104 
002106 
002110 
002112 
002114 
002116 
002120 
002122 
002124 
002126 
002130 
002132 
002134 
00213€ 
002140 
002142 
002144 
002146 
002150 


002152 
002152 
002154 
002156 
002160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002200 
002202 
002202 
002204 
002206 
002210 
002212 
002214 
002216 
002220 


002222 
092230 


002234 
002236 
002240 
002242 
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000000 
000000 
000000 
000000 
020000 
000000 
000010 
000000 
000000 
00c001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
co0000 
000900 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 


000001 
000002 
000094 
000010 
000020 
000040 
000100 
000200 


052126 
030532 


000001 
006017 
000004 
000004 
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031066 042054 
000061 


+ MEXARAAARA AAA ALARA AEA AAA AAA AAA AA EAA AAA AAA ATS 
GLOBAL DATA t 
; RESSUAAESRERAEEERRESSSANESESAESEANESELAATTEAE 


RSSTCK L 0 INDICATE IF RS STACK IS SET UP 
SCRTCH: O + SCRATCH LOCATIONS 
TEMP: 0 
ABORT: O ; TEST ABORT FLAG 
TIMLIM: 20000 ; TIMEOUT LIMIT (IN 100 MICROSEC. INCREMENTS) 
STIME: 0 ; SHORT TIMEOUT LIMIT (APPROX. 20 MICROSEC 
ILIMIT: 10 ;LIMIT ON DEVICE INITIALIZATION ATTEMPTS 
iNERR: O ; INPUT ERROR 
OUTERR: 0 ; OUTPUT ERROR 
PASCNT: 1 
EOMSG: 0 ; END_OF MESSAGES FLAG 
LOGDEV: 0 ;LOGICAL DEVICE NUMBER 
EXPINP: 0 ;EXPECT_INPUT FLAG 
OUTMSG: . ; OUTPUT MESSAGE POINTER AND SIZE 
INMSG: : ; INPUT MESSAGE POINTER AND SIZE 
OUTBUF: 0 ; OUTPUT BUFFER POINTER AND SIZE 
OUTSIZ: 0 
INBUF Q ; INPUT BUFFER POINTER AND SIZE 
INSIZ: 0 
MSGAP: 
OUT: 0 > TEST MESSAGE AREA POINTER 
INITMA: 0 > TEMPORARY MESSAGE POINTER AND S!IZE 
INITMS: 0 ;USED FOR INITIALIZATION OF OUTPUT ROUTINES 
BAPNT: 9 > GENERAL BUFFER AREA POINTER AND SIZE 
BASIZE: 0 
MSGNO: 16 >MESSAGE NUMBER (DDCMP) 
RMSGNO: 0 
PTABLE: 0 :PRESENT UNIT PTABLE DATA 
0 
Q 
0 
P TEND: 
DEVPRI: O /DEVICE PRIORITS 
L INMSK: >MASKS FOR LINE SELECTION BITS (0211) 
1 >;LINE O 
2 SLIME 2 
4 >LINE 2 
10 >LINE 3 
20 >LINE 4 
40 >LINE 5 
100 >LINE © 
200 sLUNE 7 
-ASCIZ aVTe2,0Z110 
_ EVEN 
WORD SS 
word 17 
WORD 4 
. BLKW uy 


SEQ 0019 


INCREM. ) 


OUTERR 


0Z02CA. 


6040 
6041 
6042 
6043 
6044 


e045 


6046 


6047 


6048 


6049 


6050 


6051 


£052 


6053 


6054 


6055 
6056 
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002252 
002260 
002266 
002274 
002302 
002310 
002311 
002316 
002324 
002332 
002336 
002344 
002352 
002360 
002362 
002363 
002370 
002376 
002404 
002412 
002420 
002426 
002427 
002427 
0024 34 
002442 
002450 
002454 
002462 
002470 
002476 
002504 
002512 
002520 
002526 
002534 
002542 
002550 
002556 
002564 
002567 
002574 
002602 
002610 
002616 
002624 
002632 
002636 
002644 
002652 
002655 
002655 


040503 


0461° J 
042520 


122 
044040 
041516 
052103 
044524 
042104 

000 


110 
020122 
051103 
047522 
051105 
052504 
045440 
051101 
052123 
042440 
020106 


052111 
051117 


122 
oe 
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020116 
047111 
044514 
046517 
044526 


050105 
051501 
040440 
000121 
047503 
020124 
020131 

000 


050105 
051501 
051117 
051440 
047117 
042522 


040505 
040510 
020103 
000122 
047522 
044522 
054505 
020104 
020040 
042116 


041505 


047516 


042503 


054514 
047040 
020116 


051122 
042522 
054524 


054514 
044440 


042504 
020123 
051105 


020122 
043516 
047502 
042524 
025052 
047440 
047520 
000052 
042522 
042523 
020115 
040517 


046440 
044103 
042524 
047105 
046517 
047502 


046523 
051122 


050105 
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+ MXXKAAAAAA AAA AAA AAA AAA AAA AAA AIA AA AAA AAA AAS 
; GLOBAL TEXT x 
j RAXKAAAAAAAAAA AAA AAA AAA AAS AKA AAAA AAA AA AES 


MSGOO: 


NSGO1: 


MSGO2. 


MSG42: 


MSGO3: 


MSG41: 


MSGO4: 


MSG10: 


MSG12: 


MSG20: 


MSG4O: 
MSG21: 


.ASCIZ 7CAN NOT INITIALIZE COMM DEVICE/ 


.ASCIiZ /REPLY WAS NOT AN ENG/ 


.ASCIZ /INCORRECT REPLY TYPE/ 


-ASCIZ /REPLY HAS INCORRECT STATION ADDRESS/ 


-ASCIZ “HEADER HAS CRC EPRPROPR/ 


ASCIZ /ERROR DURING KEY OAPD TEST 44 END OF REPORT 44/ 


-ASCIZ /BAD RESPONSE FROM KE YBORPD ” 


ASCIZ /TOO MANY CHARACTERS SENT FROM FEYSORRD.’ 


-ASCIZ / TRANSMIT ERROR / 


-ASC'Z /RECEPTION ERFOF 


SEQ 0020 


| 


OUTERR 


202CA. 


6057 


6058 


6059 


6060 


6061 


6062 


6063 


6064 


6065 


0066 


6067 
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002662 
002670 
002675 
002702 
002710 
002716 
002724 
002732 
002740 
002746 
002754 
002762 
002770 
002776 
002000 
003006 
003014 
003022 
002030 
003036 
003043 
003050 
003056 
003064 
003072 
003100 
003106 
003114 
003122 
003130 
003135 
003142 
003150 
0072156 
003164 
003165 
003172 
003200 
003206 
003214 
003222 
003230 
003236 
003242 
003250 
003256 
003261 
003266 
003274 
003302 
003307 
003314 
003322 
003330 
003336 
003344 
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044524 
051122 


051105 
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047117 


053105 


047522 
052503 
042040 
020107 
046523 
047117 
020117 
020113 
051505 
020105 
051124 
047522 
046111 
042503 
020107 
051105 
047101 
052105 
051101 
042523 


046511 
020124 
020105 


042440 
000 


041501 
042503 
040440 
052040 
044515 
000116 
020122 
020105 
040511 
043516 
041511 


020122 


042116 


020105 
044127 
040527 
020107 
042524 
046101 
047520 


041440 
051122 


042523 
042524 
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MSG22: 


MSG23: 


MSG24. 


MSG25: 


MSGZ6 


MSGS0: 


MSG31. 


MSGS1: 


.ASCIZ 


 ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


. ASTIZ 


ASCIZ 


7NO ACK RECEIVED AFTER TRANSMISS!ON/ 


ZERROR WHILE INITIALIZING DEVICE/ 


ZERROR OCCURRED DURING TRANSMISS1ON/ 


/NU STACK IN RESPONSE TO STRT/ 


/ERROR WHILE RECEIVING BUFFER’ 


/CAN'T GET CLEAR TO SEND.’ 


TIME QUT WHILE WAITING FOR TERMINAL PESPONSE.’ 


“DATA CRC ERROR’ 


/NOISE PATTERN SUBTEST’ 


JERROR DURING MICRODIAGNOSTIC / 


-ASC'Z ZERROR DURING LOOPBACK / 


SEQ 0021 


a 


OUTERR 


0202CA. 


6068 
6069 


070 
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003352 


003500 


003502 
003510 


003516 
003517 
003520 
003521 
003522 
003523 
003524 


003526 
003532 
003536 
003542 
003544 
003546 
003552 
003552 
003554 
003562 
003570 
003576 
003604 


003606 
003606 


003610 
003614 
003620 
003624 
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052504 


051103 
051122 
003516 


000 
006000 


016746 
012746 
012746 
010600 
104015 
062706 


104023 


003606 


104023 


016746 
016746 
012746 
012746 


044522 
047517 
000113 
049524 
051117 
046114 
051440 
042524 
051505 
000105 
047515 
051122 
052040 


000 
020055 
021440 

000 


046517 
051117 


176362 
003554 
000002 


000006 


043101 
047445 
052101 
051524 


000030 
000022 
003646 
000003 


043516 
041120 


042440 


000 
043505 
046105 
052123 
047520 


054522 
051117 
050131 


040502 


042440 
000 


942524 
022406 
042524 
047045 
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MSG52: 
MSG70: 


NSG71: 


MTY. 


BNO: 
MSG72: 


STRTB: 


STRTSA: 


STRTC: 


.ASCIZ /DATA ERROR/ 
.ASCIZ ZILLEGAL SELF TEST RESPONSE/ 


-ASCil ZMEMORY ERROR TYPE / 


.eYTE 0.0 
- ASCII 7M - BANK &/ 


BYTE 9.0 


. EVEN 
-ASCIZ /CROM ERROR/ 


_ EVEN 


. BYTE ENQ 
BYTE STRT 
. BYTE 300 
. BYTE Q 

. BYTE 0 

. BYTE 0 

. WORD O 


; AAAAAAAAARA ARREARS AREA ARREARS EAA 
4 


GLOBAL ERROR REPORT 


SOO OOOO OA ODIO OEE 


L10000: 
FORMOOQ: 


iL 10001: 


MOV ILIMIT, -CSP) 

MOV RFORMOO, - (SP) 

MOV #2,-(SP) 

MoV SP,RO 

ENT CSPNTX 

ADD #6, SP 

EMT CSMSG 

~ASCIZ /%ARFTER %06%A ATTEMPTS’.N 
EVEN 

ENT C$MSG 


MOV AG2B, - (SP) 
MoV AOZA, - (SP) 
MoV #FORMOZ. -(SP) 
MoV #3,-(SP) 


SEQ 0022 


saineinatiadidiaaiimeil 


— 


QUTERR 
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003630 
003632 
003634 
003640 
003640 
003642 
003644 
003646 
003654 
003662 
003670 
003676 
003704 


003712 
003712 
003716 
003722 
003726 
003732 
003734 
003736 
003742 
003742 


003744 
003744 
003744 
003750 
003754 
003760 
003764 
002766 
003770 
003774 
003774 
003776 
004000 
004002 
004010 
004016 
004024 
004032 
004040 


004046 
004052 
004056 
004062 
004066 
004070 
004072 
004076 
004076 


010600 
104015 
062706 


104023 
000000 
000000 
040445 
053111 
031517 
020055 
052103 
031517 
003712 


016746 
016746 
012746 
012746 
010600 
104915 
062706 


104023 


016746 
016746 
012746 
012746 
010600 
104015 
062706 


104023 
000000 
000000 
O4O44S 
053111 
033117 
020055 
052103 
033117 
004046 


016746 
016746 
012746 
012746 
010600 
104015 
062706 


104023 
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000010 


042522 
042105 
O4O44S 
054105 
042105 
047045 


176164 
176162 
003646 
000003 


000010 


000030 
000022 
004002 
000003 


000010 


042522 
042105 
040445 
054105 
042105 
047045 


000030 
000022 
004002 
000003 


000010 


042503 
022440 
026440 
042520 
022440 

000 


042503 
022440 
026440 
042520 
022440 

000 


L10002: 
AQZA: 


A028: 
FORMO2: 


AREA 2: 


L10003: 


AREAY1: 
AREAYS: 


L10004: 
RAOYRC: 


AOYE X: 
FORMOK: 


L 10605: 


EMT 
0 


0 
.ASCIZ /%ARECEIVED %03%A -- EXPECTED %03%N/ 


-ASCIZ 7%ARECEIVED %06%A -- EXPECTED °.06°N.’ 


SP, RO 
CSPNTX 
#10, SP 


CS$MSG 


SCRTCH. -(SP) 
TEMP, -(SP) 
RFORMOZ, -(SP) 


CS$SG 


AOYEX, - (SP) 
AOYRC, - (SP) 
#FORMOY, -( SP) 
#3,-(SP) 
SP,RO 

COPNTX 

#10, SP 


C$MSG 


KEX, - (SP) 
KRC, - (SP) 
#FORMOY, -(SP) 
#3,-(SP) 


SEQ 0023 


aan 


OUTERR 
D202CA 


MACY11 30(1046) 
Z21-NOV-77 1 


Pil 


004100 
004102 
004104 
004104 
004106 
004106 
004110 
004110 
004110 
004116 
004122 
004124 
004130 
004130 
004134 
004140 
004144 
004150 
004152 
004154 
004160 
004164 
004170 
004172 
004174 
004200 
004200 
004202 
004204 
004212 
004220 
004224 
004232 
004240 
004246 
004254 
004262 
004270 
004276 


004 302 
004 302 
004 304 


004 346 


G00000 
000000 


104023 
104023 


016767 
005767 
002002 
005067 


005267 
016746 
012746 
012746 
010600 
104015 
062706 
012746 
012746 
010600 
104015 
062706 


104023 
000000 
040445 
042503 
022463 
O4¥O44S 
020040 
025052 
042116 
051105 
042522 
25040 
047045 
004 302 


104023 


010146 
012701 
016146 
012746 
012746 
010600 
104015 
062706 
016146 
012746 
012746 


176012 c00064 
000060 
000052 


000046 
000042 
004204 
000002 


O000C0e 
004224 
000001 


000004 


044526 
042045 


020040 
025040 
042440 
020106 
020122 
052122 
025052 


042504 
020072 
000116 
020040 
020040 
025052 
047440 
047522 
047520 
025052 

000 


002242 
000000 
0044 36 
000002 


000006 
000002 
004457 
000002 


22-NOV-77 07:50 PAGE 
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KRC: 
KEX: 
L10006: 
L10007: 
AREAZ24: 


AREAYO: . 


500008: 


L10010: 
TEMP 2: 
FORN23: 


FORM4O: 


L10011: 


AREAS: 


184-4 


C$MSG 
C$MSG 


LOGDEV, TEMP2 
TEMP2 


500008 
TEMP2 


TEMP2 
TEMP 2, -(SP) 
#FORN2Z3,-(SP) 


/“ADEVICE: “%O3%N.’ 


oR Kaede END OF ERROR REPORT 44444%N/ 


C$NSG 


R1.-(SP) 
#OZREG, R1 
RCVCSR(R1),-(SP) 
RF ORM3O. -(SP) 
#2, -(SP) 

SP.RO 


P 
RCVBUF (R1),-(SP) 
RFRMSOA, - (SP) 
#2,-(SP) 


SEQ 0024 


| 


oOo 


GUTERR 


DZ202CA. 


MACY11 3001046) 


Pil 


004352 
004354 
004356 
004 362 
004 366 
004372 
004376 
004400 
004402 
004406 
004412 
004416 
004422 
004424 
004426 
004432 
0044 34 
0044 34 
004436 
004444 
004452 
004457 
004464 
004472 
004500 
004501 
004506 
004514 
004522 
004530 
004536 


004544 
004550 
004554 
004556 
004560 
004564 
004564 
004566 
004574 
004602 
004610 
004616 


004622 
004626 
004632 
004634 
004636 
004642 
004650 
004654 
004656 
004662 


21-NOV-77 


010600 


012601 
104023 


047445 


012746 
012746 
010600 
104015 
062706 


104023 
040445 
020124 
047111 
047517 
022513 


012746 


005067 
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000006 
000004 
004501 
000002 


000006 
000006 
004522 
000002 


000006 


055104 
035122 
047045 
042101 
043125 
033117 


042101 
051123 
022466 
055104 
043106 
022466 


004566 
000001 


000004 


040503 
042507 
047524 
041120 
000116 


C04714 
000001 


000004 
175260 
177326 


177320 


051040 
022440 


035106 
047045 


020132 
020072 
000116 
052046 
020072 
000116 


027516 
020124 
046040 
041501 


177332 


L1001Z: 
FORM30: 


FRM3OR: 


FRM3OB: 


FRM3OC: 


L10013: 
FORM6O: 


50C01$: 


MOV SP.RO 
ENT CSPNTX 
ADD 


#6, SP 
MOV XMTCSR(R1), -(SP) 
MOV #FRNIOB, - (SP) 
SP,RO 


ENT CSPNTX 

ADD #6, SP 

MOV XMTBUF (CR1), -(SP) 
MOV #FRMSOC, - (SP) 
MOV Pe i 


MOV SP, 

ENT CSPNTX 
ADD #6, SP 
MOV (SP)+,R1 


EMT C$NSG 
.ASCIZ /%ADZ RCSR: %06%N/ 


.ASCIZ 7%ADZ RBUFF: %06%N/ 


.ASCIZ 7%ADZ TCSP: %06%N/ 


-ASCIZ /“%ADZ TBUFF: %06%N/ 


EVEN 
MOV #F ORMOO. - (SP) 
MoV #1,-(SP) 
MoV SP,RO 
ENT CSPNTX 
ADD #4, SP 
EMT 


CSMSG 
.ASCIZ “%ZACAN'T GET INTO LOOPBACY*.N/ 


. EVEN 

mov Rr ORMG1, -(SP) 
MoV #1,-(SP) 

MOV SP.RO 

EMT CSPNTX 

ADD #4, SP 

MOV LOGDEV, TEMP2 
TST TEMP2 

BGE 500018 


TEMP 2 


SEQ 0025 


oOo 


OUTERR 
Dz02CA 


MACY11 30(1046) 


.Pil 21-NOV-77 


004662 905267 
004666 016746 
004672 012746 
004676 012746 
004702 010600 
004704 104015 
004706 062706 
004712 

004712 104023 
004714 O40445 
004722 020124 
004730 052517 
004736 O4€040 
004744 041501 


004752 016746 
004756 016746 
004762 012746 
004766 012746 
004772 010600 
004774 104015 
004776 062706 
005002 

005002 104023 
005004 O40445 
005012 052103 
005020 047445 
005026 026440 
005034 053111 
005042 O04,/445 


005050 000000 
005052 9000000 


ocsos54 
005054 104023 


005056 
005056 104023 


005060 
005060 001452 
010204 
010204 O00416 
011240 000100 
011440 
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177314 
177310 
004204 
000002 


000006 


040503 
042507 
020124 
047517 
022513 


000074 
000066 
005004 
000003 


000010 


054105 
042105 
022463 
042522 
042105 
022463 


L10014: 
ENT 


TEMP2 
TEMP 2, -(SP) 
#FORMZ3, -(SP) 
#2, -(SP) 

SP, RO 

CSPNTX 

#6, SP 


M C$MSG 
023516 FORM61: .ASCIZ 7ZACAN'T GET OUT OF LOOPBACK%N/ 


020124 
043117 
241120 
000116 


. EVEN 


MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 


ENT 


L10015: 


020072 
020101 
042503 
020072 
000116 


AS2A—A: 
AS 2B: iA) 


L10016: 
EMT 


L10017: 
ENT 


TEMBUF: 
TMPBUF: 


. BLKW 


. BLKW 
BLKW 


SSTACK: 


A528, - (SP) 
A52A, -(SP) 
#FORMSZ, -(SP) 
#3, - (SP) 

SP, RO 

CSPNTX 

#10, SP 


C$MSG 


; n ¢ 
042520 FORMS2: .ASCIZ /“AEXPECTED: %03%A -RECEIVED: %03%N/ 


CSMSG 


C$MSG 


810. 


270. 
100 
>STACK FOR SUBROLITINE LINKAGE 


SEQ 0026 


oo 


OUTER® 
6202CA 


MACY11 


Pil 


011440 
011442 
011444 
011446 
011450 
011452 
011452 
011454 
011456 
011460 


011460 
011462 
011464 


30(1046) 22-NOV-77 07:50 PAGE 185 


21-NOV-77 14:55 


000004 
160010 
000320 
000140 
oco000 


000002 
000010 
000001 


000002 
017126 
020130 


j AEXKAMAAAA ALA ALARA ALARA AREA AERA AAA AAA AAA AA AAAS A AEE 
EFAULT HARDWARE P-TABLE AND SOFTWARE P-TABLE x 
Mettttittitiittiiiiitittttttiiittittt ttt ttt itt t tt ttt ts 
WORD L10020-LSHW/2 
160010 
320 


140 


L 10020: 
-WORD  L10021-LSSW/2 
0c0c10 


0 
PATTERN: 000001 
L10021: 


+ MEXAAAARAA ARE RAEN AA ERA RAE A EAA A ARTA A AA AAA AA EARS 
DISPATCH TABLE ¥ 
PTTTeTT Tete tetttcettttttttrt tists testi ttt titi ttt t sett ts este 


.WORD  TSTS 
WORD Ti 
WORD 12 


SEQ 0027 





OUTERR 
DZ02CA 


MACY11 30(1046) 


Pil 


011466 
011466 


011470 
011470 


011472 
011472 


011474 


011476 
011502 


011504 


011506 
011512 
011516 
011520 


011520 
011524 
011526 
011530 
011534 
011542 
011544 
011550 
011550 
011550 


104025 


104054 


104055 


010146 


012700 
104050 


103005 


012705 
005267 
000414 


012700 
104050 
103410 
005267 
026767 
001002 
005067 


22-NOV-77 07:50 PAGE 186 
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O00040 


011440 
170362 


000037 


170372 
170366 


170356 


+ RXXKAAAAA AAA AAA AAA AAA AAA AAS AAA AAA AAA AA AE 
*STUB AREAS FOR SUPERVISOR COMPATIBILITY t 
+ MXXKKAAK AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


L10022: 

ENT CSRPT 
L10023: 

EMT C$AU 
L10024: 

EMT C$DU 


re S$ % 2 22999 > 9 9 9099 F900 300 99009095 020355099220 8 | 
; INITIALIZE CODING a 
Pe oS $39 oo > oo 9 od 9 908 8 9 0 9090000009906 2 0 0 0 0 08 8 8 | 


[SAVE R1 
: MoV R1,-(SP) 
“CHECK START EVENT FLAG TO SEE IF WE GOT HERE BECAUSE OF A START 


Moy #E©. START, RO 
EMT CSREFG 


>1F A START, THEN. 
Bcc 500028 
“INITIALIZE THE SUBROUTINE LINKAGE STACK 


MoV #SSTACK, RS 
INC ROSTCK 
BR 500038 


500028. 
SIF NOT START THEN... 
“CHECK FOR RESTART AND IF IT IS 


UPDATE LOGICAL DEVICE AND STAT. TABLE ENTRY POINTER. 
BUT DON'T EXCEED THE NUMBER OF UNITS SPECIFIED 


MoV REF. RESTART. RO 
EMT CSREFG 
BCS 50004$ 


INC LOGDEV 
CMP LOGDEV. LSUNIT 
BNE 50005$ 
CLR LOGDEV 
500058: 
50004S: 
500038: 


: CHECK FOR NEW PASS... IF IT IS. FORCE LOGICAL UNIT TO ZERO 


SEQ 0028 


OUTERR 
DZ202CA 


MACY11 
Pil 


011550 
011554 
011556 
011560 
011564 


011564 
011570 


011574 
011602 
011610 
011616 
011622 
011630 
011630 
011634 
011642 
O1le4%e 


011650 
011650 
011652 
011656 
011660 


011664 
011666 
011672 
011700 
011702 
011706 
011706 
011710 
011710 
011712 


011714 
011720 
011720 
011724 
011730 
011736 
011742 


30(1046) 
21-NOV-77 


012700 
104050 
103002 
005067 


005067 
005067 


012767 
016767 
012767 
016701 
012767 


016721 
062767 
020127 
003770 


005201 
016700 
104042 
010067 


103411 
005267 

26767 
001002 
005067 


005001 


005701 
001756 


012701 


017711 
062701 
062767 
020127 
001366 


22-NOV-77 07:50 PAGE 186-1 
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000035 MOV REF. NEW, RO 
EMT CSREFG 
BCC 50006$ 
170342 CLR LOGDEV 
500063: 
>END OF START CODE 
>FORCE THE COMM DEVICE TO BE INITIALIZED 
003604 CLR INIT 
170312 CLR ABORT 
;SET UP THE INPUT BUFFERS QUEUE 
015420 003614 MoV #RQUET, RQUE 
003610 003604 MOV RQUE, RQUEUE 
015436 003616 MOV #RBQUET. RBQUE 
003612 MoV RBQUE, R1 
005060 170252 MOV # TEMBUF, SCRTCH 
500078: 
170246 MCV SCRTCH. (R1)+ 
000416 170240 ADD #270. ,SCRTCH 
015442 CMP R1,*8RBQUEB 
BLE 509075 
;GET THE PTABLE ENTRY FOR THIS LOGICAL DEVICE 
500108: " 
{NC R1 
170250 MOV LOGDEV. RO 
EMT CSGPHRD 
170216 MoV RO. SCRTCH 
> 1F UNIT HAS BEEN DROPPED. UPDATE POINTERS ETC. AND TRY AGAIN 
BCS 50011$ 
170234 INC LOGDEV 
170230 170114 CMP LOGDEV.LSUNIT 
BNE 500128 
170220 CLR LOGDEV 
500128: 
LR Ri 
5001158: 
TST R1 
BEQ 500108 
;NOW GET THE PTABLE DATA FROM THE SUPERWISOP OND STORE WITHIN THE 
> DIAGNOSTIC PROGRAM 
002170 MOV #PTABLE,R1 
500138: 
170156 MoV ASCRTCH, (R1) 
000002 ADD #z-R1 
N00002 170144 ADD #2, SCRTCH 
002200 CMP R1i-#PTEND 
BNE 50013% 


SEQ 0029 


OUTERR 
0202CA 


66239 
6640 
6641 
6642 

(6) 
6643 
6644 
6645 
6646 
6656 
6657 
6058 
6659 
66600 

(3) 
6665 


MACY11 30(1046) 
21-NOV-77 


PL 


011744 
011750 
011754 
011756 
011762 
011764 


011772 
011774 
011774 
011776 
012004 
012012 
012020 
012026 
012034 
012042 
012050 
012056 
012064 


012066 
012070 
012074 
012100 
012106 


C12:10 


012114 
012114 


012701 
062701 
011101 
042701 
006301 
016167 


012601 


104011 
047045 
031066 


012066 


010146 
016701 
005061 
052761 
012601 


005267 


104012 
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002170 
000006 


177770 
002202 


040445 
040440 
040524 
042524 
026440 
042526 
020116 
051105 
051514 


170074 
000004 
000020 


170006 


003366 


052126 
041503 
041516 
052123 
020055 
051522 
030061 
O44515 
047045 


00000 


;GET THE LINE NUMBER AND ISOLATE IT FOR FUTURE USE 


, 


RESTORE R1 


, 


L10625: 
VMSG: 


SQUID III 


EMT CSINIT 
-ASCIZ /“NXAVTEZ2 ACCEPTANCE TEST 


#PTABLE.R1 
#6,R1 


(R1),R1 
#177770.R1 


R1 

LINMSK(R1), SLINE 
AND EXIT INIT CODE 

(SP)+,R1 


_ EVEN 


, LEAN-UP CODING 
OOOO III III II 


“MAKE SURE DEVICE 1S SHUT DOWN 


R1.-(SP) 

PTABLE.R1 
XMTCSRCR1) 
RMASCLR.RCVCSPCP IL) 
(SP1+,R1 


“UPDATE PASS COUNT 


INC 


PASCNT 


EXIT CLEAN-UP CODE 


L10026- 


EMT 


C3CLEAN 


x 
a 


VERSION 10 


TERMINALS%NZ 


SEQ 0030 


OUTERR 


D202CA 


6713 
6714 
6715 


MACY11 30(1046) 


Pil 


O1ci16 


Oizile 
012120 
012122 


012126 


012134 
012142 
012146 
012152 
012156 
012162 
012164 
012170 
012176 


012176 


012210 


012216 
012220 
012220 
012224 


010446 
010604 
162706 


017764 


016467 
016746 
042716 
042667 
005767 
001405 
005267 
042764 


005764 
002006 
005267 
042764 


000402 
005067 


n00002 


170020 


177776 
167734 
000001 
167724 
167720 


167734 
000001 


77776 


167720 
100000 


167704 


167740 


177776 


177776 


22-NOV-77 07:50 PAGE 187 
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; AAXKAAAAAA AREA ARERR AEA AREA AAA AAA R AAR A AA AAA AAAS 
GLOBAL SUBROUTINES x 
Brtsitssititisititiisiiitiiiiiitiisisisisceitoto testo ts 


SAEEEEEEEEEEEEEEEEESESEEEEEEEESESEEEEEEEESEEEEEEEEE EEE EEE EEE EEE EET 


; ROUTINE TO PROCESS TERMINAL MESSAGES FOR ALL TESTS 
; RETURNS POINTER TO MESSAGE ("OUTMSG") AND ITS SIZE 
; IN BYTES ("OUTSIZ2") 


, 


S!1ZE MAY BE ANY NUMBER OF BYTES 


; SETS A FLAG ("EXPINP") IF RESPONSE OTHER THAN "ACK" IS 
; TO BE EXPECTED 


; SETS ANOTHER FLAG ("EOMSG") IF THIS IS THE LAST MESSAGE 
SHEFF EFE FEE EEE EEE EEE HEEFT EEE E EFF F FF FFF FFF FFs tts sts sss ett set 


MSG: 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


NOV RY, -(SP) 
MOV SP. RY 
SUB #2, SP 

GET MESSAGE POINTER 

MOV aMSGAP, ACRY) 


IF MESSAGE POINTER 1S ODD. 
SET END_OF MESSAGE INDICATOR 


MoV ACRY), SCRTCH 
MoV SCRTCH, - (SP) 
BIC #1, (SP) 

Bic (SP )+, SCRTCH 


TST SCRTCH 

BEQ 50002$ 

INC EOMSG 

Bic #1, ACRY4) 
500028: 


IF MESSAGE-POINTER 1S NEGATIVE. 
SET EXPECT_INPUT INDICATOR 


TST ACRY) 
BGE 500038 
INC EXP INP 


BIC #100000, ACRY) 
OTHERWISE. CLEAR EXPECT_INPUT 
BR 500046 


509038: 
CLR EXP INP 
500045: 


“SET MESSAGE ADDRESS AND 
MESSAGE _S1 ZF 


SEQ 0031 


OUTERR 


BZ02CA. 


6763 


MACY11 3001046) 


Pil 


012224 
012232 
012240 


012246 
012254 


012262 
012270 
012274 
012300 
012304 
012310 
012312 
012316 
012316 
012316 
012316 
012320 
012322 


012324 
012324 


012354 


012354 
012362 
012370 
012376 


012404 


21-NOV-77 


016467 
062767 
017767 


067767 
062767 


016767 
016746 
042716 
042667 
005767 
001402 
005267 


010406 
012604 
000207 


005767 
001011 
004767 
103002 
000261 
000594 


005067 
005067 


016767 
012767 
062767 
017767 


012767 


22-NOV-77 07 
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177776 
000002 
167706 


167700 
000002 


167664 
167606 
000c01 
167576 
167572 


167624 


003044 
000222 


167014 
167612 


167552 
002132 
000002 
167500 


010204 


167700 
167712 
167666 


167676 
167670 


167612 


16°S72 
167512 
167504 
167552 


16754 


:50 PAGE 187-1 
SEQ 0032 


MOV ACRY), OUTMSG 
ADD #2. MSGAP 
MOV OMNSGAP, OUTNSG+2 


; UPDATE MESSAGE AREA_POINTER 


ADD aMSGAP,. MSGAP 
ADD #2, MSGAP 
,1F MESSAGE_AREA_POINTER IS 90D 
;ADD 1 TO MAKE IT EVEN 
MoV MSGAP, SCRTCH 
MOV SCRTCH, - (SP) 
BIC #1, (SP) 
BIC (SP )+, SCRTCH 
TST SCRTCH 
BEQ 50005$ 
INC MSGAP 
500058: 
500008: 
500018 
MoV P4.SP 
MoV (SF 1+, RY 
RTS PC 
FEFEFFFFE FEES H EEE EEE EFEE EEE EF EF ESE EE EEEEEF ESE FEES EEE +F EF E+ HEH Seo 
ROUTINE TO HANDLE OUTPUT OF MESSAGES TO THE TERMINAL + 
UNDER TEST. MESSAGES MAY BE OF ANY LENGTH SINCE + 
ROUTINES USED BY THIS ROUTINE SPLIT THE MESSAGES INTO + 
BUFFERS OF APPROPRIATE LENGTH FOR DDCMP. + 
SHEFEFEFEF EEE EEE EFE EEF EEFEEEF EEE EE EF ESE FES F EF FEE FFE S++ s+ sess es este 
TERQUT. 
TST INIT 
BNE 500028 
JSR PC, XSTPT 
BCC 500038 
SEC 
BF 500018 
50903: 
CLR MSGNO 
CLR RMSGNO 
50002$: 
> INITIALIZE THE BUFFER ROUTINES 3 2.20 4% 
MoV OUTMSG. INI TMA 
MoV ROUTNSG, SCRTCH 
ADD #2, SCRTCH 
MoV @SCRTICH. INI TMS 
BUFFER #1,8APNT 
MOV #TMPBLUF . BRPNT 


OUTERR 
D202CA 


MACY11 30(1046) 
21-NOV-77 


Pil 
012412 


012420 
012424 
012430 
012434 


012440 
O12440 
012444 
Oic44e 
012462 


012454 
012460 
012462 
012466 
012472 
012476 
012500 
012504 
012510 


012514 
012516 
012520 
012522 
012524 
012526 
012530 


012530 
012534 
012540 
012544 


012550 
012552 


012552 


012767 


162705 
004767 
012567 
012567 


005767 
003442 
005767 
001037 


162705 
010546 
0160745 
016745 
004767 
012605 
012567 
012567 
004767 


103005 
104423 
000024 
002636 
000201 
000412 


162705 
004767 
012567 
012567 


000733 
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000412 


000004 
000410 
167506 
167504 


167500 


167434 


000004 


167456 
167450 
000470 


002674 
002672 
001756 


000004 


167542 MOV 


#266. ,BASIZE 


GET A BUFFER OF THE MESSAGE 


SUB 
JSR 
MOV 
MOV 


#2K2,R5 
PC, GETOB 
(RS) +, OUTBUF 
(R5)+, OUTSIZ 


PERFORM THE FOLLOWING LOOP WHILE 
“A AND ABORT ARE CLEAR AND OUTSIZ 
> 1S GREATER THAN O 


500048 


OUTSIZ 


5000558 


[ADD PROTOCOL ENVELOPE AND TRANSMIT 


#242,R5 


PC, PROBUF 
(SP)+4+,R5 
(R5)+, XBUFFER 
(R5)+, XSIZE 
PC, XMIT 


{fF TRANSMIT ERROR, REPORT iT AND SET ERPXMT 


BCC 
TRAP 
WORD 
_ WORD 
SEC 
BR 
5020S: 


500C66$ 
TSERCODE 
20 
MSG26 


500018 


“GET THE NEXT BUFFER 


SUB 
JSR 
MOV 
MoV 


“END OF LOOP 


£00058: 


#242,R5 
PC.GETOB 
(R5)+, OUTBUF 
(R5)+4,0UTSI2 


b0004s 


IF ERPOR OCCURRED. 00 AN ERROR RETURN 


609000$ 


SEQ 0033 


OUTERR MACY11 3001046) 22-NOV-77 07:50 PAGE 187-3 


DZ02CA. P11 21-NOV-77 14:55 SEQ 0034 
(2) 012552 000241 
(2) 012554 50001 
(2) 012554 000207 RTS PC 
aiee 012556 000000 TYPE: Q ; TYPE OF MESSAGE EXPECTED 
6845 
6846 
6847 
6848 LEFEEFESESE SESS SSE SSS ESSE SS SSeS SSeS eH S ete Hts teste tsetse st testtseeee 
eae ‘ ROUTINE TO SEND A “STRT" MESSAGE TO THE TERMINAL + 
6 , + 
6851 ; A "STACK" MUST BE RETURNED BY THE TERMINAL + 
6852 LSE PE ESE EES EFS SS SSS HFSS SHEE eet setts sss t sss sts ttt ests set sestese 
6853 012560 XSTRT 
6856 012560 010446 MOV R4,-(SP) 
(2) 012562 010604 MoV SP. R4 
aoe 012564 162706 000002 SUB #2, SP 
ob é , 
6858 ; THE DOCMP STRT MESSAGE 1S 10 BYTES LONG (INCLUDING CRC) AND IS IN 
6859 ;A BUFFER STARTING AT "STRTB" -- PUT THIS iNFORMATION 
6860 > IN THE TRANSMIT ROUTINE 'S POINTERS 
6861 ; 
6862 012570 O1e27e7? 000010 002604 MoV #10. XS1ZE 
6863 012576 O12767 O072516 002574 MoV #STRTB. XBUFFER 
6864 : 
6865 :GET THE TERMINAL ADDRESS AND PLT INTO THE STRT MESSAGE 
6866 . 
6867 012604 012764 O02170 177776 MCV RPTABLE,. ACRY) 
(6) 012612 062764 oO00005 177776 ADD #5, ACRY) 
rer 012620 117467 177776 170675 MOVB @ACR4Y).STRTSA 
6869 ‘ 
6870 : COMPUTE THE CRC FOR THE STRT MESSAGE AND PIT IN THE LAST TWO BYTES 
6871 OF THE BUFFER ("STRTC"™) 
6872 : 
6873 012626 162705 000002 sub #1%2,R5 
(3) 012632 010546 MOY RS,- (SP) 
(5) 012634 012745 000006 MoV #6. - (RS) 
(4) 012640 016745 002534 MoV XBUFFER. -( RS) 
(3) 012644 004767 003702 JSR PC, CRC 
‘3» 012650 012605 MoV (SP )4,R5 
(4) 012652 012567 170646 MoV (R5)+, STRTC 
6874 ; 
687 > TRANSMIT THE MESSAGE 
6876 
6877 012656 005067 000154 CLR DOSTRY 
6878 012662 500028: 
oh 012662 004767 CO1e04 JSR Pc, XMIT 
6880 ; 
6881 >1F AN ERROR OCCURS. REPORT 'T AND EXIT WITH THE EPROP FLAG SET 
6882 ‘ 
6883 012666 103005 BCC 500038 
6884 012670 104423 TRAP TSERCODE 
(5) 012672 000024 WORD 20 
(5) 012674 002036 _ WORD MSG20 
6885 012676 000261 SEC 


(4) 012700 000453 BR 50001$ 


OUTERR MACY11 3011046) Ra eal 07:50 PAGE 187-4 


DZOZ2CA P11  21-NOV-77 SEQ 0035 
6886 012702 50003%: 
6887 ; 
aaee ; OTHERWISE, GET THE TERMINAL 'S RESPONSE 
6890 012702 010546 MOV RS, -(SP) 
(4) 012704 012745 000001 MOV #1,-(R5) 
(3) 012710 004767 003344 JSR PC, RCVE 
RSs, 012714 012605 MOV (SP)+,R5 
tte > IF RECEPTION ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET 
6 F 
6894 012716 103003 » TX 50004$ 
©6895 012720 O0&267 000112 INC DOSTRY 
6896 012724 000402 BR 50005$ 
(3) 012726 500045: 
6897 012726 005067 000104 CLR DOSTRY 
e898 012732 500055: 
6899 012732 005767 000100 TST DOSTRY 
(©) 912736 001404 BEQ 500068 
(4) 012740 026727 O00C72 NNnNnn002 CMP DOSTRY. #3 
(7) 012746 001345 BNE 500028 
(4) 012750 50006$: 
6900 012750 005767 000062 TST DOSTRY 
(9) 012754 001405 BEG 509078 
6901 012756 104423 TRAP TSEPCODE 
(5) 012760 000025 WORD 21 
(5) 012762 002655 WORD MSG21 
6902 012764 000261 SEC 
(4) 012766 000420 BR 500018 
vt 012770 50007%8: 
6904 ; 
6905 -OTHERWISE, SET TYPE TO "STACK" AND CHECK TO SEE THAT IT WAS THE REPLY 
6906 ; 
6907 012770 012767 O00007 177560 MoV aSTACK, TYPE 
6908 012776 010546 MoV RS, -(SP) 
(4) 013000 016745 177552 MoV TYPE, -(R5) 
(3) 013004 004767 001072 JSR PC, CHKREP 
(3) 013010 012605 MoV (SP )4+,R5 
6909 ; 
6910 >1F REPLY WASN'T A “STACK”, REPORT THE ERROP AND EXIT WITH THE ERROR FLAG SET 
6911 ; 
6912 013012 103005 BCC 50010$ 
6913 013014 104423 TRAP TSERCODE 
(5) 013016 000031 . WORD 25 
(5) 013020 003043 WORD MSG25 
6914 013022 000261 SEC 
(4) 013024 000401 BR 500018 
6915 013026 500108: 
6916 : 
6917 >END OF XSTRT ROUTINE 
6918 : 
6919 013026 500008: 
(2) 013026 000241 CLC 
(3) 013030 5000158. 
(3) 013030 010406 MoV R4. SP 


(3) 013032 012604 MOV (SP)+,R4 





' 
Ne | 






OUTERR 


























D202CA. 


013034 000207 
013036 000000 


013040 
012040 
013042 
013044 


010446 
010604 
162706 


013050 
013056 


016765 
062765 


013064 005065 


013070 
013076 


016767 
162767 


013104 016564 


026567 
002017 
005767 


013 126 003414 


013130 117774 


000755 
013160 


MACY11 30(1046) 
Pil 21-NOV-77 14 





000002 


167104 
000010 


000002 


167066 
000012 


000000 


000002 
167030 


167020 
167014 
167006 
000002 
177776 


ay” gabe 07:50 PAGE 187-5 


009000 
000000 


167004 
166776 


“166762 


Siete 


1//7/’6o 





RTS PC 
DOSTRY: 0 


LETHE FHEF FSS S EEE EEE SESE EEE E EEE ESEEFAFESEFEFEFEFESEFESEFE EHF S HHH HHH HF H +++ 


; THIS ROUTINE SPLITS A MESSAGE OF ANY LENGTH INTO : 
; SEGMENTS OF A SIZE SUITABLE FOR TRANSMISSION OVER A DATA 

, LINK -- RETURNS BUFFER ADDRESS, BUFFER SIZE AND END_OF . nESSAGE* 
; (BUFFER SIZE = 0 1S END_OF _MESSAGE ) 


FET AR et Re BON AR ne gc oleh et EO ey ee OD 
GE TOB: 

MoV Ru, -(SP) 

Mov SP. RY 

SUB #2.SP 
[LEAVE ENOUGH ROOM FOR A DDCMP HEADER 


: Mov BAPNT, ACRS) 
ADD #10, ACRS) 


UNIT SIZE TO ZERO . 

CLR BRS) 

:SCRTCH HAS MAXIMUM ODCMP MESSAGE SIZE 
; Moy «BAS IZE. SCRTCH 


SUB #12, SCRTCH 
[GET A COPY OF THE BUFFER POINTER 
; Mow ACRS). CORY) 

REPEAT LOOP UNTIL MAX SIZE OR END OF DATA 

600025: 

CMP B(RS), SCRTCH 

BGE 50003$ 

TST INITHS 


| BLE 50003$ 
-MOVE DATA INTO MESSAGE BUFFER 


MOVE @INITMA, ACLRY) 
DEC INIT TMS 

INC INI TMA 

INC BCRS) 

INC CORY) 

BR 50002$ 


500038 
; END OF LOOP 





SEQ 0036 


OUTERR 


O202CA Pi 


6968 
(3) 
(3) 
(3) 
(2) 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

b976 


MACY11 3001046) 


013160 
013160 
013160 010406 
013162 012604 
013164 000207 


017166 
Bisiee 010146 
013170 010246 


O1si72 «016502 
013176 162702 


Wi2722 


013206 016501 
013212 11012 
013214 
012216 


013220 162712 
013224 005202 


O13226 116722 


013232 905267 
013236 116722 


013242 012701 
013246 062701 
013252 111122 


1 21-NOV-77 14:55 
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50000S: 
500015: 
MOV R4, SP 
MOV (SP)+,R4 
RTS PC 


000000 
000010 


000201 


000002 


000200 


1667 34 


166726 


106722 


002170 
900005 


LEEEEEEE EEE S THEE EEE EEE EE EE SESE FEFEFEEFEETEFEFEFES ESF SHH HHH tHe se eset 


; ROUTINE TO PROVIDE LINE PROTOCOL HEADER AND CHECKSUMS + 
; CALL WITH DATA AREA ADDRESS AND S!ZE (IN BYTES) + 
; RETURN WITH MODIFIED ADDRESS AND SIZE + 
EFEFEEFEH EEE EEE FEF E FEF EE EE FETE PETE F FF +F FFF Ft t ttt test sess est st sttss 
PROBUF : 

MOV R1,-(SP) 


/CHANGE POINTER TO INCLUDE DOCMP HEADER 


MOV ACR5),R2 
SUB #10,.R2 


SFIRST BYTE 1S SCH (START OF HEADER) 
MOVB  #SOH. (R2)+ 
“NEXT THO BYTES GET MESSAGE SIZE 
MOV BiRS).R1 

MOVB =—-R1, (R2)+ 

SWAB sR 

MOVB = RL. CRD) 
SET SELECT BIT 


B1SB #200, (R2) 
INC R2 


/NEXT BYTE 1S LAST GOOD RESPONSE 
MOVB —- RMSGNO, (R2)+ 
“NEXT BYTE GETS MESSAGE NUMBER --- POF NUMBER FOP NEXT MESSAGE (IF ANY) 


1NC M3GNO 
MOVB MSGNO. (R2)+ 


[GET THE TERMINAL ADDRESS FOR THE NEXT HEADER BYTE 
MoV #PTABLE.R1 

ADD #5, R1 

MOVB (R1},CF2)¢4 


:GET HEADER START ADDRESS AND SIZE IN SYTES 


i 


——- HH 


SEQ 0037 


_ 
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DZD2CA.P11. 21-NOV-77 SEQ 0038 
7018 é 
7019 013254 016567 000000 166620 MoV ACRS), SCRTCH 
(6) 013262 162767 000010 166612 SUB #10, SCRTCH 
7020 013270 012767 O00006 166606 MOV #6, TEMP 
7022 COMPUTE HEADER CRC 
7024 013276 162705 000002 ; SUB #142, R5 
(3) 013302 010546 MOV RS, - (SP) 
(5) 013304 016745 166574 MoV TEMP, - (RS) 
(4) 013310 016745 166566 Mov SCRTCH, - (RS) 
(3) O13314% 004767 003232 ISR PC, CRC 
(3) 013320 012605 MOV (SP)+,R5 
BS 013322 012567 166556 MOV (RS) +, TEMP 
7028 [PUT CRC INTO BUFFER 
7028 013326 016712 166552 Mov TEMP, (R2) 
7030 [GET ADDRESS OF MESSAGE AND MESSAGE SIZE IN BYTES 
1 ; 
7032 013332 016567 000000 166542 MoV ARS), SCRTCH 
7033 013340 016567 000002 166536 MoV B(RS). TEMP 
4 : 
7035 “COMPUTE DATA CRC 
7036 ; 
7037 013346 162705 oo0002 SUB #142, R5 
(3) 013352 010546 MOV RS, - (SP) 
(5) 013354 016745 166524 MOV TEMP, - (RS) 
(4) 013360 016745 166516 Nov SCRTCH, - (RS) 
(3) 013364 004767 003162 JSR PC, CRC 
(3) 013370 012605 MOV (SP) + R5 
By 013372 012567 166506 | MOV (RS) +, TEMP 
7039 [PUT DATA CRC IN LAST TWO BYTES OF BUFFER 
7040 : 
7041 013376 016502 900000 MoV ACRS), R2 
(6) 013402 066502 000002 ADD B(RS), R2 
7042 013406 116722 166472 MOVB —sTENP,, (R2)+ 
7043 013412 000367 166466 SWAB ss TEMP 
7044 O13416 116712 166462 MOVB —« TEMP. (R2) 
7045 ; 
7046 “RETURN WITH MODIFIED ADDRESS AND SIZE 
7047 
7048 013422 016565 000002 900006 MoV BRS). D(RS) 
(6) 013430 062765 000012 900006 ADD #12, D(R5) 
7049 013436 016565 000000 000004 MOV ARS), C(RS) 
(6) O13444% 162765 000010 900004 SUB #10, C(RS) 
7050 013452 012602 MOV (SP)4, R2 
7051 O13454 012601 MOV (SP)+,R1 
7052 013456 500008: 
(3) 013456 500015: 


(2) 013456 000207 RTS = PC 





es 





OUTERR 


D202ZCA. 
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Pil 


013460 


013460 


013462 
013464 
613470 
013474 


013476 
013500 
013502 
013504 
013506 


013510 
013512 
013514 
013516 


013516 
013524 
013526 


013604 


010146 


010546 
012745 
004767 
012605 


103007 
104463 
000050 
002655 
004110 


012601 
006261 
000571 


026727 
001027 
005065 
012767 
010546 
016745 
004767 
012605 
103003 
012601 
000261 
000546 


016701 
062701 
111167 
012601 
006535 
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000000 
002564 


166426 


000000 
000001 


177010 
000330 


166356 
000004 
166366 


SEQ 0039 


; vente peck ae gee Gah Gade ee ee ee 


; ROUTINE TO GET TERMINAL INPUT 
j obbesacessoncscasensenesensoesesesenoneeseeneoneeneseneneeees 


TERIN: 

[SAVE R1 

: Mov R1,-(SP) 

GET TERMINAL RESPONSE 

i MoV RS, -(SP) 
MoV #0. -(R5) 
JSR PC. RCUE 
MOV (SP 4, RS 

SIF RECEIVE ERROR, REPORT IT AND EXIT WITH THE ERROR FLAG SET 

BCC 50002$ 
TRAP - TSERCODE 
“WORD 40 
“WORD -MSSYO 
“WORD  ARERYO 

RESTORE R1 FIRST 

Mov (SP)+,R1 


SEC 
50001$ 
50002S: 


SIF MESSAGE 1S ONLY 10 BYTES. SEE IF IT 1S AN ACK 
[IT'S OK TO BE AN ACK, BUT RECEPTION 1S INCOMPLETE (CLEAR FLAG) 


000010 CMP INS1Z, #10 
BNE 500038 
CLR ACRS) 

177016 MOV RACK, TYPE 


MoV RS. -(SP) 
MoV TYPE, -(R5) 
JSR PC, CHKREP 
MOV (SP)+,R5 
BCC 50004$ 


MOV (SP)+,R1 

SEC 

BR 50001$ 

50004$: 

MoV INBUF,R1 

ADD #4,R1 

MOVB (R1),RMSGNO 

MOV (SP)+,R1 
500008 


500638: 


ln 


OUTERR 


DZ202CA. 


7099 
7100 
7101 
7102 
(3) 
(5) 
(4) 


MACY11 30(1046) 
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Pil 


013604 
013610 
013612 
013616 
013622 
013626 
013630 


013634 
013640 
013644 
013650 
013654 


013660 
013666 
013670 
013672 
013674 
013676 
013700 
013702 
013704 
013706 


013706 
013712 
013714 
013716 
013720 
013722 
013724 
013726 
013730 
013732 


013732 
013740 
013746 
013752 
013754 
013760 


162705 
010546 
012745 
016745 
004767 
012605 
012567 


016701 
062701 
114167 
000367 
114167 


026767 
001407 
104463 
000051 
002427 
003744 
012601 
000261 
000475 


124167 
001407 
104463 
000052 
002363 
003712 
012601 
000261 
000463 


062767 
162767 
162705 
010546 
016745 
016745 
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000002 


000006 
166324 
002724 


170144 


166306 
000010 
170126 
170122 
170116 


170114 


167611 


000010 
000012 
000002 


166170 
166162 


170110 


166206 
166202 


SEQ 0040 


+ 1F RECEIVE OK, CHECK THE HEADER CRC 
*COMPUTE EXPECTED CRC 


, 


MoV INBUF, - (RS) 
JSR C,C 
MoV (SP) +, RS 
MOV (R5)+, AQYEX 

[GET THE CRC RECEIVED 

; MoV INBUF, R1 


ADD #10,R1 
MOVB -(R1), AOYRC 
SWAB AOYRC 
MOVB -(R1), AOYRC 


SIF THEY AREN'T THE SAME, REPORT THE ERROR, RESTORE R1 AND EXIT WITH 
>THE ERROR FLAG SET 


CMP AOYEX, AOYRC 
509058 


BEQ 

TRAP TSEPCODE 
.WORD 41 

.WORD MSG41 

. WORD = AREAYI 
MOV (SP)+,R1 
SEC 

BR 50001$ 


500058: 


; COMPARE TERMINAL ADDRESS RECEIVED WITH THAT EXPECTED 
;AND IF THEY AREN'T THE SAME. REPORT THE ERROR, RESTORE R1 AND 
>EXIT WITH THE ERRROR FLAG SET 


CMPB ss - (R11), STRTSA 
BEQ 500063 
TRAP —« TSERCODE 


WORD = 42 

WORD MSG42 
.WORD AREA4Z 
MOV (SP)+.R1 
SEC 

BR 50001$ 


5000eS: 
; MOVE THE POINTERS PAST THE HEADER AND COMPUTE THE DATA CRC 


ADD #10, INBUF 

SUB #12, INSIZ 

SUB #1%2,R5 

MoV INS1Z, -(R5) 

MoV INBUF, - (RS) . 


OUTERR 


DZ202CA. 


(3) 


MACY11 30(1046) 


Pil 


013764 
013770 
013772 


013776 
014002 
014006 
014012 
014016 
014022 


014026 
014034 
01403¢€ 
014040 
014042 
014044 
014046 
014050 
014052 
014054 


014054 
014060 
014064 
014070 
014074 
014076 
014076 
014100 
014100 


014102 
014102 


21-NOV-77 1 


004767 
012605 
012567 


016701 
066701 
062701 
114167 
000367 
114167 


026767 
001407 
104463 
000053 
CO3242 
003744 
012601 
000261 
000412 


005265 
016701 
162701 
111167 
012601 


000241 
000207 


010446 


002562 
170002 


166144 
166142 
000002 
167760 
167754 
167750 


167744 167744 


000000 
166062 
000004 
166072 
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JSR 
MOV 
MOV 


PC, CRC 
(SP)+,R5 


(RS) +, AOYEX 


[GET THE DATA CRC RECEIVED 


, 


IF THEY AREN'T 


INBUF,R1 
INS1Z,R1 


#2,R1 

-(R1), ADYRC 

AOYRC 

THE SAME; REPORT THE ERROR, RESTORE R1 AND 


EXIT WITH THE ERROR FLAG SET 


CMP 
BEQ 
TRAP 
. WORD 
. WORD 
. WORD 
MOV 
SEC 


500078: 
OTHERWISE; SCT 


50000s: 
500018. 


AOYRC, ROYEX 
50007$ 
TSERCODE 

43 


MSG43 
AREAL 
(SP )4,R1 


b0cc1$ 


COMPLETE FLAG. RESTORE F1 AND EX!T NORMALLY 


RL). RMSGNO 
(SP 14. P14 


Acre pth Sete esha th tal gig ight tot ta 


ROUTINE 


RESPONSE ("ACK" OR “STACK") 
LOCATION “TYPE” CONTAINS THE RESPONSE CODE EXPECTED 
INPUT BUFFER POINTER IS IN “INBUF” 


INPUT BUFFER SIZE (IN BYTES) IS IN “INSI2" 
FFFEEFESEEEEEEEEEEEEEEEE EEE EEEESEAEEEEEEEEEE SESE HES EEE EHTS 


CHKREP 
MOV 


TO CHECK AN INPUT BUFFER FOR A STANDARD 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


R4.-(5P) 


SEQ 0041 


OUTERR 


D202CA. 


(2) 

(3) 
7180 
7181 
7182 
7183 
7184 


MACY11 3001046 
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014104 
014106 


014112 
014120 
014122 
014124 
014126 
014130 
014132 
014134 
014136 


O1413€ 
014142 
014144 
014150 
014154 
014160 
014162 
014166 
014174 
014202 
014210 
014214 
014220 


014226 
014234 


014236 
014244 
014250 
014256 


014264 
014272 
014274 
014302 
014310 
014312 
014314 
014316 
014320 
014322 


010604 
162706 


026727 
001406 
104463 
000001 
002311 
003606 
000261 
000553 


162705 
010546 
012745 
016745 
004767 
012605 
012567 
016764 
062764 
117467 
000367 
005364 
117467 


026767 
001076 


016764 
005264 
117464 
042754 


026465 
001414 
016467 
016567 
104463 
000002 
002336 
003610 
000261 
000460 


) 
77 4 


000002 


166032 


000C02 


000006 
165772 
002372 


165716 
165754 
000007 
177776 
165666 
177776 
177776 


165652 


165704 
177776 
177776 
177400 


177776 


177776 
000000 


000010 


177776 


165654 


165646 


177776 


177776 
177776 


000000 


167340 
167334 
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0 4 PERERA eles Big eg ear a 
SEQ 0042 
Mov SP, RY 


SUB #2, SP 


; IF MESSAGE 1S NOT 10 BYTES LONG, IT CAN'T BE A CONTROL MESSAGE 
+> TYPE AN ERROR MESSAGE AND EXIT WITH ERROR SET 


CMP INS1Z, #10 
BEQ 50002$ 
TRAP § TSERCODE 
/WORD 1 
-WORD MSGO1 
-WORD AREADI , 
SEC 
500015 
500028: 
; OTHERWISE. COMPUTE THE CRC AND CHECK IT AGAINST THAT SENT 
SUB #142,R5 
MoU RS, - (SP) 
MOV #6, - (RS) 
MOV INBUF, - (RS) 
JSR PC, CRC 
MOV (S?)+,R5 
MOV (RS) +, TEMP 
MoV INBUF, ACRY ) 


ADC #7, ACRY) 

MOVB @ACR4), SCRTCH 
SWAB SCRTCH 

DEC ACRY) 

MOVB @A(R4Y), SCRTCH 


DIF CRC'S MATCH GO ON... OTHERWISE SKIP FOLLOWING CODE 


CMP TEMP, SCRTCH 
BNE 50004$ 


; COMPARE CONTROL MESSAGE TYPE W!TH THAT PASSEC AS AN APGUEMENT 


, 


MoV INBUF, ACRY) 
INC ACRY) 

MOVB MACRY), ACRY) 
BIC #HYBYTE,ACRY) 


:1F NOT THE EXPECTED TYPE. PRINT ERPOR MESSAGE AND EXIT WITH EPROP SET 
CMP ACRY), BCRS) 
BEQ 50005$ 
MoV ACR4Y), ADZA 
MOV BRS), AOZB 
TRAP TSERCODE 


-WORD 2 
WORD MSGO2 
.WORD AREADZ 
SEC 

BR 500018 







































OUTERR 
DZ202CA 


7215 
7216 
721? 


PL 


014324 
014324 
014332 
014340 
014346 
014354 
014362 
014370 
014376 


014404 
014412 
014414 
014416 
014420 
014422 
014424 
014426 
014430 
014430 


014430 
014432 
014432 
014440 
014446 
014450 
014452 
014454 
014456 
014460 
014462 
014462 


014462 
014462 
014464 
014464 
014466 
014470 
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012767 
062767 
117767 
042767 
016767 
062767 
117767 
042767 


026767 
001406 
104463 
000003 
002363 
003712 
000261 
000416 


000414 


016767 
016767 
104463 
00U004 
002427 
003744 
000261 
000401 


000241 


010406 
012604 
000207 





002170 
000005 
165536 
177400 
165566 
000005 
165510 
177400 


165474 


165444 
165440 


22-NOV-77 07 





165550 
165542 
165534 
165526 
165522 
165514 
165506 
165500 


165470 


167336 


167332 
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; OTHERWISE, CHECK TERMINAL ADDRESS 


500055. 


, 


, 
, 


50007%: 
50006$: 


+ 1F NOT THE EXPECTED TERMINAL ADDRESS, 
;EXIT WITH ERROR SET 


#PTABLE, SCRTCH 
#5, SCRTCH 
O@SCRTCH, SCRTCH 
#HYBYTE, SCRTCH 
INBUF, TEMP 

#5, TEMP 

OTEMP, TEMP 
RHYBYTE, TEMP 


THEN REPORT THE ERROR AND 
TEMP, SCRTCH 

50007% 

Spree 


MSGO3 
AREADS 


50901$ 


SIF CRC WAS IN ERROR, SKIP ABOVE CODE, COME TO HEPE, REPORT ERROR AND 
sEXIT WITH ERROR SET 


BR 
500048: 


500108: 
500038: 


> NORMAL 
500008 
s0001s: 


500108 


SCRTCH, AOYRC 
TEMP, ROYEX 
TSERCODE 

4 

MSGO4 

APEAOY 


500018 


P4, SP 
(SP )+,R4 
PC 


SEQ 0043 


OUTERR 


DZ202CA. 


MACY11 3001046) 


Pil 


014472 
014472 
014474 
014476 


014502 
014506 
014512 


Ci4sie 


014516 


014522 
014524 
014526 


014530 
014534 
014540 
014546 
014554 
014562 
014570 
O14S72 


014574 
014576 
014600 
014602 
014604 


0146010 
014612 
014612 
014616 


010446 
010604 
162706 


OOf064 
005067 
005067 


004767 


103033 
01014%6 
010246 


016701 
012702 
016162 
016162 
016162 
016162 
012602 
012601 


104463 
000027 
002740 
004110 
005264 


000402 
005064 
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000002 


177776 
000270 
000266 


HO0264 


165434 
002242 
000000 
000002 
000004 
000006 


000000 
000002 
000004 
000006 


LEEEEEEHEEFE SESE SESE SESE SSeS tHE SSH FFF St FFF Ft tte F ttt ttt ts ess ttt ststsesttest 


; THIS ROUTINE SETS UP AND CHECKS FOR COMPLETE TRANSMISSION + 
; RETURNS AN ERROR FLAG IF ANY ERROR OCCURS DURING TRANSMISSION + 
; SET “ABORT” IF INITIALIZATION OF THE DEVICE FAILS + 


LEEEEFEEFESE SEES SSH S SSH SSE S SH SHEFF Fs SH FFs Fett tH ttt ttt tte ttt tsetse sesets 
XMIT: 


MOV SPRY 
| SUB #2. SP 
CLEAR ERROR COUNT, TRANSMIT DONE FLAG AND RECEIVE DONE FLAG 
CLR B(RY) 
CLR XDONE 
CLR RDONE 
; START OF LOOP 
500025. 
[TRY TO INIT DEVICE 
ISR PC. DEVINIT 


IF ERROR OCCURRED... 


BCC 50003$ 
MOV R1,-(SP) 


MoV R2,-(SP) 
“GET A COPY OF THE DEVICE REGISTERS 
Nov PTABLE.R1 

Mov #OZREG, R2 

MOV RCVCSR(R1), RCVCSRIR2) 

MOW RCVBUF (R1). RCVBUF (RZ) 

MoV MMTCSR(R1), XMTCSR(RZ) 

MOV XMTBUF (R1), XMTBUF (RZ) 

MoV (SP)4+.R2 

MoV (SP)+,R1 
REPORT THE ERROR AND UPDATE THE ERROR COUNT 
. TRAP  TSERCODE 

WORD 23 

WORD MSG22 

“WORD AREAZ3 

INC Bi RY) 
“OTHERWISE. CLEAR THE ERROR COUNT 
. 500046 
500036: 

CLR BRU) 


500048: 





OUTERR 
O202CA 


MACY11 3001046) 


Pil 


014616 
014624 
014626 
014630 
014632 
014634 
014636 
014642 
014646 


C1464. 
Oi4e_62 


014654 
014660 


014662 
014662 
014664 
014670 


014672 
014676 
014700 
014702 


014704 
014710 
014714 
014722 
014730 
014736 
014744 
014746 
014750 
014752 
014754 
014756 
014760 
014762 
014764 
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026467 
001010 
104462 
000000 
002252 
003526 
005267 
005464 


005764 
003321 


o0S7 64 
N01042 


104022 
005767 
001774 


005767 
002032 
010146 
010246 


016701 
012792 
016162 
016162 
016162 
016162 
012602 
012601 
104463 
000030 
003000 
004110 
006261 
000404 


177776 


165244 
177776 


1??7 76 


B00112 


000104 


165260 
002242 
000000 
000002 
000004 
000006 


165270 


000000 
000002 


000006 


ee LS eee ie 


SEQ 0045 | 


+ 1F ERROR COUNT HAS EXCEEDED LIMITS, ABORT AND NEGATE THE COUNT 


500058: 


SEXIT LOOP WHEN 


TST 
BGT 


BCR4Y), ILIMIT 
055 
ne 


MSGOO 
AREAOO 
ABORT 
BCRY) 


w 
oO 
oO 


END OF LOOP 
ERROR COUNT IS ZERO OR NEGATIVE (ABORT) 


BCRY) 
50002$ 


IF NOT ABORT THEN EXECUTE THE FOLLOWING CODE 
OTHERWISE SKIP AND RETURN WITH ERROR SET 


TST 
BNE 


BCRY) 
50006$ 


“WAIT FOR TRANSMIT DONE FLAG TO SET 


500078 


EMT 
TST 
BEQ 


£00078 


“iF TRANSMIT FLAG IS NEGATIVE, AN ERROR OCCURRED 


TST 
BGE 
MOV 
MOV 


XDONE 
500108 
R1,.-CSP) 
R2,-(SP) 


“te ERROR. GET COPY OF DEVICE REGISTERS. P& INT MESSAGE AND EXIT WITH ERROR SET 
/ OTHERWISE CO A NORMAL EXIT 


MOV PTABLE.R1 

MoV #DZREG. RZ 

MoV RCVCSRIR1),RCVCSRIR2) 
MOV RCVBUF (R11). RCVBUF RZ) 
MoV XMTCSR(R1). XMTCSRIPL: 
MoV XMTBUF CRI). XMTBUF PZ) 
MoV (SP )4,R2 

MOV (SP)+,P1 

TRAP TSERCODE 

WOrD 824 


“WORD = AREAZS 


BR 50001$ 
500108 


| 

| 

| 
CSBRK 
XDONE 


OUTERR 
D202CA 


MACY11 3001046) 


JPL 


014764 
014766 
014766 
014770 
014772 
014772 
014772 
014774 
014774 
014776 
015000 
015002 
015004 


015006 
015006 
015010 
015012 
016016 
015020 


016022 


015026 
015034 
015034 
015042 


015044 
015052 
015056 
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000402 


000261 
000401 


000241 


010406 
012604 
000207 
000000 
ooco0e 


010446 
010604 
162706 
010146 
010246 


D1e701 


052791 


032761 
001374 


056761 


000002 


165142 


000020 
000020 


000310 
165024 
165020 


300000 
000000 


165030 
000004 


BR 
50006S: 


500115: 
500008: 


500015: 


XDONE: 0 
RDONE: 0 


07:50 PAGE 187-15 


50011$ 


50001$ 


R4, SP 


(SP )+,R4 
PC 


FEES HEFHE HEE HE SHEE HEHE ESE HEHE SHH FHF HHS tHe tH estes tsetse te se tee setoss 
; + 


ROUT 
ion 


INE TO INITIALIZE A DEVICE 
INIT" 1S NON-ZERO, THE ROUTINE WILL EXECUTE AND SET IT 


RETURNS WITH AN ERROR IF CTS CANNOT BE SET 
RETURNS WITH ERROR AND “ABORT” SET IF THE DEVICE DOES 


NOT 


 PEFEFEEHHEH ES EESEE EEE ES HEE SHE HEHE EF EFH SHH Fe HHH tsetse sees sss tse tsetse ee eese 


CEVINIT: 


“GET DEVICE 
Mou 
“Do R MASTER 
, BIS 


BIT 
BNE 


5090028 


GET THE LINE MASK AND SET THE RIGHT DATA TERMINAL PEADY BIT IN THE D2 


MoV 
SWAB 
BIS 


EXIST 


ADDRESS 
PTABLE. Ri 

CLEAR ON THE OZ AND WAIT FOP THE CLEAR BIT TO GO DOWN 
SMASCLR. RCVCSPIRI? 


#MASCLR, RCVCSRIRI? 
500028 


SL INE. SCRTCH 
SCRTCH 
SCRTCH. XMTCSRIR1) 


GET THE LINE NUMBER, STOP CODE. CHARACTER LENGTH AND BAUD RATE FROM 


‘THE PTABLE 


AND CLEAR EXTRANEOUS BITS. SET THE PELEIWER ENABLE BIT 


/AND LORD THE OZ LINE CONTROL REGISTER 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


— 


SEQ 0046 


eee ee SS 





GUTERR 


O202CA. 


MACY11 301046) 


Pil 


015064 
015070 
015074 
015076 
015102 
015106 


015112 
015120 
015126 
015134 
015142 
015150 
015156 
015162 
015166 
015172 
015176 
015200 
015204 
015210 
015216 
015224 
015230 
015234 
015240 
015244 
015246 


015252 
015256 
015264 
015270 


015276 
015304 


015312 
015320 
015326 
015334 
015342 
015344 


21-NOV-77 


012702 
062702 
011202 
042702 
052702 
010261 


012767 
062767 
117767 
042767 
012764 
062764 
016746 
012746 
017446 
012746 
104937 
062706 
005067 
017464 
062764 
016746 
012746 
016446 
012746 
104037 
062706 


010167 
062767 
0:0167 
062767 


012787 
Di27e7 


056761 
052761 
052761 
052761 
012602 
012001 


Z2-NOV-77 07:50 PAGE 187-16 
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, 


002170 MOV #PTABLE,.R2Z 
000006 ADD #6,R2 
MOV (R2),R2 
000300 BIC #300,R2 
010000 BIS #10000, R2 
000002 MOV RZ, RCVBUF (R1) 
;GET THE DEVICE PRIORITY AND SET UF THE INTERRUPT HANDLERS AND 
;CLEAR THE NEW MESSAGE FLAG (NMSG) 
002170 165060 MOV RP TABLE, DEVPR| 
000004 165052 ADD #4, DEVPRI 
165046 165044 MOVB ADEVPRI,DEVPRI 
177400 165036 BIC #HYBYTE, DEVPRI 
002170 177776 MOV RP TABLE. ACRY) 
000002 177776 ADD #2, ACRY) 
165016 MOV DEVPRI,-(SP) 
015612 MoV @RINT, - CSP) 
177776 MOV @ACRY).-CSP) 
000003 MoV #3,-CSP) 
EMT CSSVEC 
000010 ADD #10, SP 
000174 CLR NMSG 
177776 177776 MOV @ACPY), ACRY) 
000004 177776 ADD #4, ACRY) 
164750 MoV DEVPRI,-(SP) 
015444 MoV RXINT. - CSP) 
177776 MOV ACRY), -C(SP) 
000003 MoV #3,-(SP) 
EMT CSSVEC 
000010 ROD #10. SP 
>GET COPIES OF THE DEVICE BUFFER REGISTER ADDRESSES 
000104 Mov R1. XMTADD 
000006 000076 ADD #6, XMTADD 
000074 MoV Ri, RCVADD 
000002 000066 ado #2. RCVADD 
>SET COUNTS FOR & SYNC'S AND FOUR FILL CHARACTERS 
000004 200064 MoV #4. SYNCNT 
N0n004 000e0 MOV #4. FLLCNT 
:USE LINE MASK TO ENABLE THE TRANSMITTER ENABLE THE MASTER SCAN 
>ENABLE TRANSMIT AND RECEIVE INTERRUPTS 
000042 000004 BIS SL INE, XMTCSR(R1) 
000040 000000 BIS @MSCNEN, RCVCSR(R1) 
o4o000c 000000 BIS RTXINTE, RCVCSRIR1? 
000100 900000 BIS BRXINTE, RCVCSRER1) 
MOV (SP)+,R2 
MoV (SP)+,R1 


-SET IN'T COMPLETE FLAG 


4 


SEQ 0047 | 
| 
| 
| 
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DZ0ZCA. P11 21-NOV-77 14:55 SEQ 0048 
7571 i 
7572 015346 005267 000022 INC INIT 
7573 015352 5000058 
(3) 015352 500018 
(3) 015352 010406 MOV R4, SP 
(3) 015354 012604 MOV (SP)+,R4 
(2) 015356 000207 RTS PC 
7574 015360 oc0000 SLINE: 0 
7648 ; 
7649 ; 
7650 015362 000000 XMTADD: 0 ; TRANSMIT BUFFER REGISTER ADDRESS 
7651 015364 9Q00000 RCVADD: 0 ;RECEIVE BUFFER REGISTER ADDRESS 
7652 015366 o0c000 TIMER: O ; TIMER FOR CLEAR TO SEND OPERATION 
7653 015370 000000 SYNCNT: 0 ;NUMBER OF SYNC CHARACTERS INSERTED BEFORE DDCMP MESSAGE 
7654 015372 000000 FLLCNT: 0 > NUMBER OF FILL CHARACTERS AFTER MESSAGE 
7eS55 015374 000000 INIT: n >; INITIALIZE COMPLETE FLAG 
70656 015376 000377 FIL: 377 >FILL CHARACTER 
7657 015400 000000 XBUFFER: 0 ; CURRENT TRANSMIT BUFFER POINTER 
7658 015402 000000 XSIZE: O ; CURRENT TRANSMIT BUFFER SIZE 
7659 015404 9000000 NMSG: 0 >NEW MESSAGE EXPECTED FLAG 
7660 015406 c0d0000 RTEMP1: 0 >CURRENT RECEIVE BUFFER POINTER 
7661 015410 000000 RTEMPZ: 0 ; CURRENT RECEIVE BUFFER SIZE 
— 015412 900000 CNTFLG: 0 ; CONTROL FLAG FOR INPUTTING DDOCMP MESSAGES 
66 ; 
sat ; RECEIVER QUEUES 
66 ; 
7666 015414 9O00000 PQUEUE: 0 , QUEUE POINTER FOR BUFFER PROCESSING 
7667 015416 000000 FPQUE: Q ; QUEUE POINTER FOR NEXT AVAILABLE BUFFER 
7668 0615420 000000 RQUET: 90 ; QUEUE OF BUFFER ADDRESSES AND SIZES 
7669 015422 000000 0 
7670 015424 9O00000 0 
7671 015426 000000 0 
7672 015430 000000 0 
7673 016432 000000 RQUEB: 0 
7674 015434 000000 RBQUE: 9 > QUEUE POINTER FOR NEXT AVA:LABLE BUFFER AREA 
7675 015436 000000 RBQUET: 0 QUEUE OF BUFFER AREAS 
7676 015440 000000 0 
7e77 0159442 9020000 RBQUEB- 0 


OUTERR 
D202CA 


MACY11 30(1046) 
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Pil 


015444 
015450 


015452 
015456 


015460 
015462 
015466 


015470 
015474 
015500 
015504 
015510 


015514 
015516 
015516 
015522 


015524 
015532 
015536 
015540 


015540 
015544 
015550 
015554 
015556 
015564 
015572 
015572 
015572 


016700 
104041 


005767 
001047 


010146 
005767 
003413 


117701 
042701 
110177 
005267 
005367 


000426 


005767 
001406 


056777 
005367 
000415 


016701 
162701 
005267 
104021 
046761 
042761 


012001 
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164530 


177712 


177704 
177400 
177656 
177670 
177666 


177650 


177646 177630 
177634 


177616 
co000e 
177226 


177576 000004 
040000 900000 


TRANSMISSION INTERRUPT HANDLER 


We Be Be Be Be 


SET PROCESSOR PRIORITY LEVEL 


MOV DEVPRI,RO 
EMT CSSPRI 


> IF SYNC COUNT EQUAL TO ZERO... 


; TST SYNCNT 
BNE 50003$ 


CHECK BUFFER SIZE. 
IF GREATER THAN ZERO, THEN... 


MOV Ri,-(SP) 

TST XS!IZE 

BLE 50004$ 
SEND THE NEXT CHARACTER AND UPDATE POINTER AND COUNT 


MOVB OXBUFFER.R1 


BIC #HYBYTE.R1 
MOVB R1, AXMTADD 
INC XBUFFER 
DEC XS1ZE 
IF ALL CHARACTERS SENT, CHECK FILL COUNT. 
BR 500055 


500048: 
TST FLLCNT 
BEQ 50006$ 


IF FILL COUNT ISN'T ZERO SEND A FILL CHAR. AND DECREMENT COUNT 


BIS FIL. @XMTADD 
DEC FLLCNT 


BR 50007$ 
500068: 
IF ALL TRANSMIT DONE. DISABLE TRANSMISSION AND SET DONE FLAG 
MoV XMTADD. Rt 
SuB #o, R1 
INC XDONE 
EMT CSABRT 
BIC SL INE. XMTCSR(R1) 
BIC RTXINTE,RCVCSRIRI? 
500075: 
50005S: 


MOV (SP)+,R1 
:.. OTHERWISE. SEND A SYNC AND DECRPEMENT THE SYNC COUNT 


SEQ 0049 


ae 


OUTERR 
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Pil 


015574 
015576 
015576 
015604 
015610 


015610 
015610 


015612 
015616 
015620 


015622 
015626 


015630 
015636 
015644 
015652 


015656 
015662 
015664 
015670 


015672 
015676 


015700 
015706 


000405 


112777 
005367 


000002 


016700 
104041 
010146 


005767 
001111 


017767 
016777 
117777 
117701 


120127 
001472 
120167 
001467 


120127 
001027 


012767 
062767 
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000377 
177560 


164262 


177556 


177600 
177544 
177514 
177530 


000377 
177506 


000005 


000007 
000002 


177556 


177550 
177552 
177534 


177502 
177602 


SEQ 0050 
BR 50010$ 
MOVB #SYNC, AXMNTADD 
DEC SYNCNT 
500108: 
[DO A SUPERVISOR-TYPE RTI 
10027: 
RT| 


RECEPTION INTERRUPT ROUTINE 


SET PROCESSOR PRIORITY 


MOV DEVPRI.RO e 
ENT CSSPRI 


[IF NEW MESSAGE FLAG 1S RESET... 


TST NMSG 
BNE £0011$ 


OBTAIN A BUFFER FROM THE QUEUE AND GET THE RECEIVED BYTE 


MOV ORBQUE, RTEMP 1 
MoV RTEMP1, @RQUE 
MOVB ORCVADD, ARTEMP1 
MOVB ORTEMPI.RI1 


CHECK FOR SYNC/FILL CHARACTER 
(LOOKING FOR FIRST NON-SYNC/NON-F ILL! 


CMPB R1,#SYNC 
BEQ 50012$ 
CMPB Ri, Fit 
BEQ 500128 


NOT FILL OR SYNC CHECK FOR ENQ (DDCMP CONTROL MESSAGE) 


CMPB R1,#ENQ 
BNE 50013$ 


iF tT 1S AN ENQ, SET EXPECTED BYTE COUNT TO 7. SET MESSAGE SIZE 
TO 10 (OCTAL) AND UPDATE THE BUFFER QUEUES 


MoV #7, RTEMPZ 
ADD #2, RQUE 


OUTERR 
D202CA 


MACY11 
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015714 
015722 
015730 
015736 
015740 
015746 


015746 
015754 
015756 


015756 
015762 
015764 
015770 
015772 


015772 
016000 
016006 
016010 


016010 
016014 
016014 


016014 
016020 
016026 
016034 
016036 
016044 


016044 
016050 


016050 
016052 
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012777 
062767 
026727 
003403 
012767 


012767 
000417 


120127 
001403 
120127 
001007 


062767 
012767 
000402 


005367 


005267 
062767 
026727 
003403 
012767 


005267 


006501 
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000010 
000002 
177462 


015420 


177777 


000201 
000220 


000002 
009901 


177370 


177366 
000002 
177402 


015436 


177474 
177466 
015432 


177450 


177436 


177416 
177404 


177406 
015442 


177370 


500145: 


3 SET 


500138: 
: NOT 


, 


50016$: 


COUNTER 


MOV 
BR 


#10, ORQUE 
#2, RQUE 
RQUE, #RQUEB 
50014$ 
#RQUET, RQUE 


FLAG TO -1 (MESSAGE SIZE COUNT COMPLETE) 


50015$ 


SEQ a 


FILL, SYNC OR ENQ@. CHECK FOR SOH OR DLE (DDCMP DATA MESSAGE) 


R1., #SOH 
50016% 
Ri, #OLE 
50017$ 


> MOVE QUEUE POINTER TO SIZE ENTRY AND SET COUNTER FLAG TO 1 (EXPECT 
; FIRST COUNT BYTE) 


500175: 


BYTE WASN'T ANY OF THE LEGAL CHARACTERS. .. 
; A RESTART BY FORCING THE NEW MESSAGE FLAG TO RESET ON EXIT. 


500208 
500158: 


ADD 
MOV 


DEC 


#2, PQUE 
#1, CNTFLG 
50020$ 


NMSG 


INC RTEMP1 
ADD #2, RBQUE 
ChiP RBQUE. #RBQUEB 
BLE 50021$ 
#RBQUET. RBQUE 
5002158: 
SET THE NEW MESSAGE FLAG 
; EXIT ROUTINE 
INC NMSG 
£001.28: 


[NEW MESSAGE FLAG IS SET... CONTINUE BUILDING MESSAGE 


500115: 


50022$ 


FORCE 


COUNT THE CHARACTER AND UPDATE THE FREE BUFFER QUEUE 


ae 
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D202CA. P11. 21-NOV-77 SEQ 0052 

7846 ;NOT A NEW MESSAGE... GET BYTE AND STORE IT 
7848 016052 117777 177306 177326 — MOVB — ARCVADD, aRTENP1 
7850 ; IF COUNTER FLAG IS GREATER THAN ZERO, BYTE 1S ALSO THE FIRST COUNT BYTE 
7852 016060 005767 177326 ; TST CNTFLG 
113) 016064 003413 BLE 500236 
7854 ; PUT THE BYTE IN RTEMP2 (EXPECTED COUNT). UPDATE THE BUFFER POINTER 
7855 ’ -DECREMENT THE COUNTER FLAG (SET TO GET SECOND COUNT BYTE) AND 
7886 ; GO DO AN RTI 
7858 016066 117767 177314 177314 — MOVE = ARTEMP1, RTEMPZ 
7859 016074 042767 177400 177206 BIC #HYBYTE, RTENP2 
7860 016102 005267 177300 INC RTEMP1 
7861 016106 005367 177300 DEC CNTFLG 
7862 Ol6li2 o00460 BR 50024$ 

(3) Ole1i4 500235. 
7863 ; 
7864 : COUNTER FLAG NOT GREATER THAN ZERO. 1S IT ZERO? 
786 ; 
7866 Ol6114 005767 177272 TST CNTFLG 
(9) 016120 01041 BNE 509255 

6 ; 
7868 : UF ZERO, BYTE IS ALSO SECOND BYTE OF COUNT (6 HIGH ORDER BITS) 
7869 : «GET IT, MASK IT AND PUT IT INTO RTEMP2 (EXPECTED COUNT) 
7870 ; 
7871 016122 010146 Mov R1,-(SP) 
7872 016124 117701 177256 MOVB « ARTEMP1,R1 
7873 016130 00526? 177252 INC RTENP 1 
7874 016134 000301 SWAB ORM 
7875 016136 042701 140377 BIC #140377. R1 
7876 O16142 060167 177242 ADD R1, RTEMP2 
7877 016146 012601 Mov (SP)4#,R1 
7878 ; 
7879 ; PUT THE COMPLETE SIZE IN THE QUEUE (EXPECTED COUNT + 
7880 > 12 COCTAL) BYTES OF HEADER AND CRC) 
7881 : 
7382 016150 016777 177234 177240 Mov RTENP2, ARQUE 
7883 016156 062777 O00012 177232 ADD #12, ARQUE 

4 ; 

7885 : ADJUST EXPECTED COUNT TO INCLUDE THE REMAINDER OF THE HEADER AND 
7886 - ‘THE DATA CRC 
788 : 
7888 016164 062767 000007 177216 ADD #7. RTENP2 
7 ; 
7890 ; UPDATE THE QUEUE AND DECREMENT THE COUNTER FLAG (COUNT COMPLETE) 
7891 ; 
7892 016172 062767 000002 177216 ADD #2. RQUE 
7893 016200 026727 177212 015432 CMP RQUE. SRQUEB 

(9) 016206 003403 BLE 50026$ 
7894 016210 012767 015420 177200 nov #RQUET, RQUE 
7895 016216 50026 


7896 016216 005367 177170 DEC CNTFLG 


OUTERR 
DZ202CA 


MACY11 
. Pil 


016222 
016224 


016224 
016230 


016234 
016240 
016242 


016246 
016250 
016254 
016254 
016254 
016254 


016254 
016256 
016256 


016260 


016260 


016266 
016266 
016272 


B 5 
30(1046) 22-NOV-77 07:50 PAGE 188-4 
21-NOV-77 14:55 
; GO 00 AN RTI 
000414 ‘ BR 50027$ 
500258. 
> COUNTER FLAG IS LESS THAN ZERO... THIS IS A DATA BYTE 
UPDATE POINTER AND COUNT 
005267 177156 ; INC RTEMP1 
005367 177154 DEC RTEMP2 
IF COUNT HAS REACHED ZERO. END OF MESSAGE. SET DONE FLAG 
Q0£767 177150 TST RTEMP2 
001005 BNE 50030$ 
005267 176536 INC RDONE 


104021 
005067 177130 


012601 
006002 


016767 161514 


012700 000100 
104027 


177100 


; ABORT ANY WAITS AND RESET NEW MESSAGE FLAG 
EMT CSABRT 
CLR NMSG 

50030: 

500278. 

500245. 

500228. . 

D0 RTI 

MoV (SP)+. Pt 


L10030: 
RTI 


SHFFFEF EFF FE FEE EEE EEF EEE EEF EEE EEE F FFF FFF FFF FFF Ft rt tot ttt treet e tsetse 
ROUTINE TO GET AN INPUT BUFFER FROM THE INPUT QUEUES + 
; ~ 
; WILL RETURN AN ERROR IF TERMINAL DOES NOT RESPOND + 
; + 
ARGUEMENT (IF SET) INHIBITS ERROR PRINTOUT. THIS ALLOWS + 

~ 

+ 

+ 

+ 


THE PROGRAM TO RETRY THE STRT-STACK SEQUENCE WITHOUT HAVING 
AN ERROR MESSAGE EACH TIME 


FEEESESEE EE HEHEHE ESE FEE FE SSE HEHEHE EEE EEF EE FFE HEHE SESE H HEH T tte teste eet ese seese 
RCVE: 

“RESET TIMER 

‘ MOV 0, TIMER 

"GO TO SUPERVISOR FOR AWHILE AND INCREMENT TIMER 

500028. 


MoV #100, R0 
EMT C$HTU 


SEQ 0053 


OUTERR MACY11 30(1046) R on™ lah 07:50 PAGE 188-5 


DZD2CA. P11 21-NOV-77 SEQ 0054 
s+ 016274 005267 177066 INC TIMER 
tog : LOOP UNTIL TIME LIMIT EXCEEDED OR RECEIVER DONE FLAG IS SET 
796 ; 
7962 016300 026767 177062 163602 CMP TIMER, TIMLIM 
(6) 016306 003003 BGT 50003$ 
(4) 016310 005767 176470 TST RDONE 
(7) 016314 001764 BEQ 50002$ 
(4) 016316 500038: 
7963 ; 
peek »RESET THE NEW MESSAGE FLAG 
796 ; 
fag. 016316 O0&067 177062 CLR NMSG ~ 
7967 3 = 
res ;1F THE TIME LIMIT WASN'T EXCEEDED... 
(Fo? , 
7970 016322 026767 177040 163560 CMP TIMER, TIMLIM 
bo 016330 O02044 BGE 50004 
7971 ; 
7972 ;RESET THE TIMER 
tok, ; CHECK FOR ERROR «RDONE LESS THAN ZERO) 
4 : 
7975 016332 005067 177020 CLR TIMER 
7976 016336 005767 176442 TST RDONE 
—) 016342 003426 BLE 600055 
7 ‘ 
Aad : NOT ERRROR. GET BUFFER ADDRESS AND S!ZE FROM QUEUE AND UPCATE QUEUE 
7980 016344 017767 177044 163574 Mov @RQUEUE, INBUF 
7981 016352 062767 O00002 177034 ADD #2, RQUEUE 
7982 016360 017767 177030 163562 MoV MRQUEUE. INS1Z 
7983 016366 062767 000002 177020 ADD #2, RQUEUVE 
7984 016374 026727 177014 015432 CMP RQUEUE, #RQUEB 
(9) 016402 O03403 BLE 500068 
7985 016404 012767 015420 177002 MoV #RQUET, RQUEUE 
7986 016412 500068 
7987 ; 
7988 ;RESET DONE FLAG AND LEAVE 
7989 
7990 016412 005067 76366 CLR RDONE 
7991 O16416 900410 BR 59007% 
(3) 016420 500058: 
7992 : 
7993 >ERROR DID OCCUR... RESET THE DONE FLAG. PEPORPT EPROP, PETUPN WITH ERROR 
7994 : 
7995 016420 005067 176360 CLR RDONE 
7996 016424 104463 TRAP TSERCODE 
(5) 016426 000032 . WORD 26 
(5) 016430 003100 . WORD MSG26 
(5) 016432 004302 _ WORD AREAZ6 
7997 016434 000261 SEC 
(4) 016436 O00443 BR 500018 
7998 016440 500078: 
7999 016440 006441 BR 50010$ 


(3) 016442 500648: 


OUTERR 
DZ202CA 


MACY11 30(1046) 


Pil 21-NOV-77 


016442 005067 
016446 010146 
016450 016701 
016454 162701 
016460 010246 
016462 012702 
016466 016162 
016474 016162 
016502 016162 
016510 016162 
016516 012602 
016520 012601 


016522 005765 
O1e52e 001004 
016530 104463 
016532 000037 
016534 003165 
016536 0043504 
016540 


016540 000261 
016542 000401 
016544 
016544 
016544 000241 
016546 
01e546 000207 


016550 
016550 
016550 
016550 000207 


22-NOV-77 7: 
14: 55 


176720 


176710 
000002 


002242 

000006 000000 
000002 000002 
ocoo04 000004 
000006 000006 


000000 


50 PAGE 188-6 


, 


- 
+ TIME LIMIT EXCEEDED... RESET TIMER, GET REGISTER CONTENTS 


#OZREG. RZ 

RCVCSR(R1). RCVCSR(RZ2) 
RCVBUF (R1), RCVBUF (RZ) 
XMTCSR(R1). XMTCSR(RZ) 
XMTBUF (R1). XMTBUF (RZ) 
(SP)+,R2 

(SP)+,R1 


[1 NOT INHIBITED, PRINT ERROR MESSAE 


, 


500118: 


DDSTRT(RS) 
50011$ 
TSERCODE 
31 


MSG31 
AREASI 


/RETURN WITH ERROR IN ANY CASE 


SEC 

BR 
500108. 
500008: 


50001S: 


CLC 
PTS 


LESSEE FESS EEE FEES ESSE HEHE HEHEHE THE FHH HHH tet Hesse tsetse tts eset seeeteeese 


DUMMY ROUTINE FOR COMPATIBILITY 


LE EEFEEE ESE ESE SE EH SHEE SESE HEE EHH SHH SH HHH teste tests ete etee eset eeere 


INSERR: 
500008: 
500018: 

RTS 


PREFS HEE FEE HEE EEE EEE EEE FEE EEE EEE EEE FEE EEE HHH EHH HHH Heese sete reeset eeet 


60001$ 


rc 


PC 


SEQ 0055 


—e 5 TS OR 5 
OUTERR MACY11 30(10%6) 22-NOV-77 07:50 PAGE 188-7 
O2DZCA. P11 = 21-NOV-77 14: 55 SEQ 0056 


8114 ; THIS ROUTINE COMPUTES CRC-16 AND REQUIRES THREE ARGUMENTS: + 
8115 ; DATA ADDRESS, DATA SIZE (IN BYTES) AND A WORD LOCATION + 
8116 ; FOR THE COMPUTED CRC + 
8117 , 3.2.1.2.1, 3.2.1.2.4 3.2.20.1.2, 32.20.31, + 
ey ; 3. 2. 20.6.2, 3.2.20.6.4 AND 3.2. 20.10. 1 + 
, + 
den ; THIS 1S A STANDARD ROUTINE FROM DEC'S NETWORK GROUP + 
; + 
8122 ZF EEEFEFEFEE HFS ESE SEE ESE SEE EE FEE ESE EFEFEEF FEAF E ESE SFE FHF HHH Ht tte teste ett 
8123 016552 CRC 
8126 016552 010446 MoV R4,-(SP) 
(2) 016554 010604 MOV SP. RY 
(3) 016556 162706 9000004 SUB #4, SP 
8127 016562 010146 MOV R1,-(SP) 
8128 016564 010246 MOV R2,-(SP) 
$129 016566 010346 MOV R3,-(SP) 
8130 016570 016501 900000 MOV ACRS),R1 
8131 016574 016502 000002 MoV B(RS).R2 
8132 01660C 005003 CLR R3 
8133 016602 50002S: 
(6) 016602 C05702 TST R2 
(9) 016604 003500 BLE 500038 
8134 016606 112164 177776 MOvVB C(R1id+, DRY) 
8135 016612 042764 177400 177776 Bic #HYBYTE, D(RY) 
8136 016620 005302 DEC R2 
8137 016622 010346 MOV R3,-(SP) 
(6) 016624 O46416 177776 BIC DRY), (SP) 
(6) 016630 O40364 177776 Bic R3,DC(R4) 
(6) 016634 052664 177776 BIS (SP)+,D(R4) 
8138 016640 016464 177776 177774 MoV DCRY)-ECRY) 
8139 016646 042764 177760 177776 Bic #177760, DC RY? 
8140 016654 006364 177776 ASL DRY) 
8141 016660 062764 017026 177776 ADO aCRCTAB, D(RY) 
8142 016666 017464 177776 177776 MOV aD(R4), DLRY) 
8143 016674 042764 177417 177774 Bic #177417, E (RY) 
8144 016702 006264 177774 ASR ECRY) 
(7) 016706 006264 177774 ASR ECRY) 
(7) 016712 006264 177774 ASR ECR4) 
8145 016716 062764 017026 177774 ADD aCRCTAB.ECR4Y) 
S146 016724 062764 OO0040 -177774 ROO #32. E(R4) 
8147 016732 017464 177774 177774 mov ME CRY), ECRY) 
8148 016740 C16446@ 177774 MoV ECR4Y),- (SP) 
(6) 016744 O46416 177776 Bic DCR4Y), CSP) 
(6) 016750 O46464 177774 177776 BIC ECR4Y),DCRY) 
(6) 016756 052664 177776 BIS (SP)+, D(R4) 
8149 016762 042703 9000377 Bic #LOBYTE.R3 
8150 016766 000303 SWAB R3 
8151 016770 016446 177776 MoV DCR4), -CSP) 
(6) 016774 O40316 Bic R3, (SP) 
(6) 616776 O46403 177776 BIC DRY), RZ 
(6) 017002 052603 BIS (SP)+,R3 
8152 017004 000676 BR 50002$ 
(3) 017006 50003$: 
8153 017006 016365 900004 MoV R3,CCRS) 
8154 017012 012603 MoV (SP s+,R3 


8155 017014 012602 MOV (SP)+,R2 


OUTERR 
DZ02CA 


MACY 11 
.Pil 


017016 
017020 
017020 
017020 
017022 
017024 


017026 
017030 
017032 
017034 
017036 
017040 
017042 
017044 
017046 
017050 
017052 
017054 
017056 
017060 
017062 


30(1046) 22-NOV-77 07:50 PAGE 188-8 


21-NOV-77 14:55 


012601 


010406 
012604 
000207 


oco000 
140301 
140601 
000500 
141401 
001700 
001200 
141101 
143001 
003300 
003600 
143501 
002400 
142701 
142201 
002100 
000000 
146001 
154001 
012000 
170001 
036000 
024000 
162001 
120001 
066000 
074000 
132001 
05u000 
116001 
104001 
042000 


500008: 
500015: 


CRCTAB: 


MOV 


rere ty 


120001 
066000 
074000 
132001 
050000 
110001 
104001 
04 2000 


(SP)+,R1 


R4, SP 
(SP )+,R4 
PC 


i tle ie te eh rT 


SEQ 0057 





































OUTERR 
D202CA 


O1712e 


O17 132 
017140 
O1714e 


017154 


017160 


017162 
017164 
017170 
017174 
017176 
017200 
017202 
017204 
017206 
017210 
017212 
017214 


017214 
017220 
017224 


017230 





MACY11 30(1046) 
Pil 


00£067 


016767 
042767 
016767 


004757 


193015 


010546 
012745 
004767 
012605 
104463 
000062 
003307 
004110 
104006 
104032 
000394 


162705 
004767 
012567 


103015 


22-NOV-77 07:50 PAGE 189 
21-NOV-77 14:55 


000742 
100001 
000730 


1727144 


000000 
177354 


000002 


162772 
162704 
162760 


; HARDWARE TESTS 3.2 


, 


tit i a malt i ik hd se gs Ni" ci ial 
; > 
; SELF TEST 3.2¢ ms 


QOOOVOD OO OOO OOOOOOO OOOOO OOO OOOOOOOOO 
“FORCE INIT OF COMM DEVICE @ND LINK 
CLR INIT 
[GET MESSAGE ADDRESS AND SIZE 
, MoV MONSG. OUTNSG 
BIC #100001, OUTNSG 
MOV MOMSG+2. OUTMSG+2 
SEND THE MESSAGE 
ISR PC. TEROUT 
[IF ERROR... 
’ BCC 50004 
INSERT ERROR INTO STATISTICS TABLE (MANUFACTURING VERSIONS ONLY), 
REPORT THE ERROR, REQUEST SUPERVISOR TO LOOP 
IF LOOPING ENABLED (EX!T TEST 'F NO LOOPING) 
MOV RS, -(SP) 
Moy #0. -(RS) 
JSR PC, INSERR 


Mov (SP )+, RS 
TRAP _— 
5 


_ WORD 
-WORD MSG50 
-WORD ARERNO 


EMT CSCLP1 
ENT CSEXIT 


L10021- 
50904 
“LOOK FOR ACK 
SUB #142. R5 
JSR PC, TERIN 
MoV (RS) +, MCOMP 
IF EPROR ._ INSERT ERROR INTO TABLE (MANUFACTURING TEST ONLY) 
: REPORT THE ERROR. REQUEST LOOP IF ENABLED 'E¥IT TEST 
IF NO LOOPING) 


Bcc 500058 


SEQ 0058 











































OUTERR 


8242 
(4) 





D202CA. 


MACY11 3001046) 


Pil 21-NOV-77 14:55 


017232 
017234 
017240 
017244 


017310 


017310 
017314 
017320 


017322 
017330 
017336 
017344 


017350 
017352 
017354 
017360 
017364 
017366 
017370 
017372 
017374 
017376 
017400 
017402 
017404 


010546 
012745 
004 767 
012605 
104463 
000062 
003307 
004110 
104006 
104032 
000314 


005767 
? 


005067 
012700 
104026 


016767 
042767 
01676? 
004767 


103015 





000000 
177304 


O00e0b6 


176060 
900400 


000562 
100001 
000556 
172754 


000000 
177 1e% 


22-NOV-77 


162602 
162574 
162570 


07:50 PAGE 189-1 


“sone 


RS, -(SP) 
#0, -(R5) 
PC, INSERR 
(SP)+,R5 
TSERCODE 
50 

MSG50 
AREAYO 
CSCLP1 
CSEXIT 
L10031-. 


i AF MESSAGE WAS NOT AN ACK... ERROR 
REPORT ERROR, LOOP IF ENABLED, EXIT TEST IF NOT 


500068: 


MCOMP 
50006$ 
TSERCODE 
50 


mSG50 
AREAYO 
CSCLP1 
CSEXIT 
Licg3i-. 


“FORCE A RESTART ON THE LINK AND WAIT FOR SELFTEST TO COMPLETE 


CLR INIT 
MoV #400. RO 
EMT CSWTM 
>SET UP MESSAGE ASKING FOR RESULTS AND SEND IT 
MOV MOMSG1. OUTMSG ; 
BIC #100001. O0UTNSG 4 
MoV MOMSG1+2, QUTMSGe2 “ 
JSR PC. TEROUT 
-1F ERROR, INSERT ERROR IN TABLE ‘MANUF TESTS ONLY: PEPOPT ERROR. 
LOOP IF ENABLED. EXIT TEST IF No LOOPING 
BCC 500078 
MoV #0.-«(RS) 
JSP Pc. INSERR 
MoV (SP )4,R5 
TRAP TSERCODE 
worl 50 
_ WORD mscso 
WORD AREALO 
EMT CSCLP1 
EMT CSEXIT 
WORD L100 7i- 








SEQ 0059 






































OUTERR 
DL2OZCA 


Pu 


017404 
017404 


017410 
017412 
017414 
017420 
017424 
017426 
017430 
017434 
017440 
017442 
017444 
017446 
017450 
017452 
017454 
017456 
017460 


017460 
017464 
017470 


017474 
017476 
017500 
017504 
017510 
017512 
017514 
017516 
017520 
017522 
017524 
017526 
017530 


017530 
017534 


017536 





MACY11 30(104%6) 
2Zi-NOV-77 14:55 


004767 


103023 
010546 
012745 
004767 
012605 
010546 
012745 
004767 


162705 
004 767 
012567 


103015 


005767 
001723 


00477 





000170 


600000 
177124 


900001 
177110 


000002 
173770 
000402 


000000 
177040 


000342 


D0014e 


22-NOV-77 07:50 PAGE 189-2 





ACK TERMINAL AND GET ITS RESPONSE 


500105. 


50011 


JSR PC, OUTREP 
HANOLE ERROR IF ONE OCCURED WHILE ACK'ING 


BCC 50011$ 
MoV RS, -(SP) 
JSR PC, INSERR 
MOV (SP)+,R5 
MOV RS, -(SP) 
JSR PC, INSERR 


MOV (SP)+,R5 
TRAP TSERCODE 
-WORD 50 

WORD MSG5O 


-WORD AREAKO 
EMT CSCLP1 
EMT CSEXIT 
WORD =LIICSI-. 


“GET THE RESPONSE 


500128 
REPEAT 


SUB #182,.R5 
JSP PC. TER IN 
Mow (RS5)+. MCOMP 


HANDLE ERROR IF ONE OCCURED 


BCC 500128 


MOV #0, - (R5) 
JSR PC, INSERR 
MoV (SP), R5 
TRAP TSERCODE 
word 50 

WORD MSG5O0 
.WORD AREAKO 


EMT CSCLPI 
EMT CSEXIT 
WORD =LIO0031- 


THE LOOP UNTIL A MESSAGE IS PECE'VED 


TST MC OMP 
BEQ 50010$ 


PROCESS THE MESSAGE RECE'VED 


JSR PC. STINPT 


SEQ 0060 


——— ee 


OUTERR 


D202CA. 


MACY11 30(1046) 


Pil 


017542 
017544 
017546 


017576 


017576 
017576 


017600 


017600 
017606 
017614 


017622 
017626 
017630 
017634 
017640 
017644 
017646 


017652 
017660 
017666 


22-NOV-77 07:50 PAGE 189-3 


21-NOV-77 14:55 


103015 
010546 

012745 
004767 
012605 
104463 


000062 . 


003307 
004110 
104006 
104032 
000002 


104001 


116767 
116767 
116767 


162705 


012605 
012567 


012767 
012767 
004767 


000001 
176772 


162360 
162354 
163703 


000002 


000006 
620120 
176706 


000254 


020120 
000010 
174600 


000316 
000307 
000303 


175520 
175514 


J 5 
HF IN ERROR... INSERT ERROR INTO TABLE (MANUF. TESTS ONLY, REPORT 
FERROR, LOOP IF ENABLED. EXIT TEST IF NOT 
BCC 50013$ 
MOV R5,-(SP) 
MOV #1,-(R5) 
JSR PC, INSERR 
MOV (SP)+,R5 
TRAP TSERCODE 
WORD 50 
-WORD MSG5O 
.WORD AREAYO 
EMT CSCLP1 
ENT CSEXIT 
-WORD = LI0031-. 
500135: 
/END OF TEST 
L10031: 


EMT CSETST 


FEFEE FEE EEE EEF EEEEEESEF EEF EEEFF EEF FEES HFEF EF EF SS ESE tests esse tte 
+ 

ROUTINE TO SEND AND ACK IN ORDER TO POLL A TERMINAL + 
+ 
LHHFEEEE EEE EE EEE EE SEE SEE FEES EEF EFFEE ESE SSEF FEF SEF HF Ess sss sete tse sss 


OUTREP: 


: INSERT MESSAGE NUMBER (LAST MESSAGE SENT) AND RESPONSE NUMBER 
; (LAST MESSAGE RECEIVED).... INSERT STATION ADDRESS 


MovB MSGNO. MSGN 
MOVB —-RNSGNO, REPN 
MOVB —- STRTSR. REPA 
[COMPUTE AND INSERT CRC 
sus #142. R5 
Mov #6. - (RS) 
Mow #2EPM, - (RS) 
JSR PC, CRC 
nov (SP 4, RS 
MoV (RS) +, REPCRE 
“SET UP BUFFER POINTER AND SIZE AND SEND THE MESSAGE 
MoV SREP. XBUFFER 
nov #10. XS1ZE 


JSR PC. XMIT 


——— 


SEQ 0061 


QUTERR MACY11 3001046) 22-NOV-77 07:50 PAGE 189-4 








D2D2CA. P11 21-NOV-77 14: 55 : SEQ 0062 

8355 ; 
835¢ SIF AN ERROR OCCURRED, RETURN W!TH ERROR. OTHERWISE RETURN NORMALLY 
8358 017672 103004 ‘ BCC 500028 
8359 017674 005267 162220 INC OUTERR 
8360 017700 000261 SEC 

(4) 017702 O00401 BR 50001$ 
8361 017704 500028: 
8362 017704 500008: 

(2) 017704 000241 CLC 

(3) 017706 500015: 

(2) 017706 000207 RTS Pc 
$363 
8364 
$365 
$366 
$367 
S368 SEEPS SS ESE SEE SESE EES SSeS EHS H SF HF s+ F est F Fst sess sss tsetse tte tsetse 
8369 ; + 
8370 : ROUTINE TO PROCESS TERMINAL SELFTEST RESULTS + 

P + 
8372 SSEEEEE SHH EHF HE EEE EEE S EEE EEE FE SEEE FESS HFEF Sees e settee este 
8373 017710 STINPT: 
8374 017710 O10146 MoV R1.-(SP) 
8375 017712 O10246° MoV R2, -(SP) 
8376 017714 010346 MOV R3.-(SP) 
8378 SKIP RESPONSE HEADER AND CHECK FIRST DATA BYTE 
8379 
8380 017716 016701 162224 | MoV INBUF. R14 
a 017722 062701 o00004 ADD #4, Rt 
1 : 

8382 S1F IT 1S "A", GOOD RESPONSE. OTHERWISE. . 
8384 017726 121127 o00101 CMPB CRA), #101 
92? 017732 001454 ? BEQ 500028 
$386 > GET THE BYTE AND CHECK TO SEE IF iT 1S “M" (MEMORY ERROR) 
8287 ; 
8388 017734 112103 MOVB ss (R14 RB 
8389 017736 120327 000115 CMPBséR3, #115 
32) 017742 001025 } BNE 500038 
$391 : MEMORY ERROR...GET THE TYPE AND BANK NUMBER 
8392 ; INSERT INTO ERROR MESSAGE, REPORT THE ERROR AND 
8393 RETURN WITH ERROR 
8394 ; (NOTE: ERROR REPORTING PROTOCOL DELIMITERS ARE 
8395 IGNORED. THIS PROGRAM WILL NOT ACCEPT INPUT FROM 
8396 ANY OTHER INTELLIGENT TERMINAL PROPERLY. > 
8397 
8398 017744 062701 000002 ADD #2. R1 
8399 017750 012702 003464 MoV aMTY, R2 
8400 017754 112122 MOVB (R14, (R2)4 
8401 017756 112122 MOVB «(R14 (R2)4 
8402 017760 012702 003500 MOV #BNO, R2 
8403 017764 005201 INC Ri 
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8404 017766 111103 Move (R1),R3 
8405 017770 062703 000060 ADD #60,R3 
8406 017774 110312 MOVB R3, (R2) 
8407 017776 104423 TRAP TSERCODE 

(5) 020000 000107 WORD 71 

(5) 020002 003440 .WORD MSG71 
8408 020004 012603 MoV (SP)+,R3 
8409 020006 012602 MOV (SP)+,R2 
8410 020010 012601 MOV (SP)+,R1 
$411 020012 000261 SEC 

(4) 020014 000427 BR 50001$ 
ait 020016 500035: 
De ; NOT A MEMORY ERROR OR PASS... CHECK FOR “P" (PROCESSOR ERROR) 

41 ; 
8416 020016 120327 000120 CMPB R3. #120 
anti 020022 001010 BNE 50005$ 
417 ; 
8418 ; PROCESSOR ERROR... REPORT | T AND EXIT WITH ERROR 
8419 ij 
8420 0.0024 1044223 TRAP TSERCODE 

(5) 020026 000110 -WORD 72 

(5) 020030 003502 WORD MSG72 
8421 020032 012603 MOV (S°)+,R3 
8422 020034 012602 MoV (SP )4,R2 
8423 020036 012601 MoV (SP)4+,R1 
8424 020040 000261 SEC 

(4) 020042 O00414 BR 500018 
ao 020044 500053: 
8426 ; 
8427 ;PESPONSE WAS NOT LEGAL... REPORT | T AND RETURN WITH ERROR 
8428 
8429 020044 104423 TRAP TSERCODE 

(5) 020046 000106 WORD 70 

(5) 020050 003405 WORD MSG70 
8430 020052 012603 MoV (SP)4,R3 
8431 020054 012602 MoV (SP)4,.R2 
8432 020056 012601 MoV (SP)4+.R1 
8433 020060 000261 SEC 

(4) 020062 000404 BR 600018 
8434 020064 500068: 
8435 020064 500048: 
8436 020064 500025: 
8437 020064 012603 Mov (SP)+,.R2 
8438 020066 012602 MoV (SP )+.R2 
8439 020070 012601 Mov CSP 14, R1 
8440 020072 500008: 

(2) 020072 000241 CLC 

(3) 020074 50001$: 

(2) 020074 000207 RTS PC 
Syl 
8442 : 
8443 :MESSAGE AREA FOR SELFTEST 
S4uy ; 
8445 020076 000000 MCOMP: 0 


8446 020100 020104 MOMSG: . +4 
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8447 020102 000004 EMDNG1-2-. 
8448 020104 040 002 050 . BYTE 40, 2,50,0 
020107 v00 
8449 020110 EMDMG1: 
8450 . EVEN 
8451 020110 120115 MOMNSG1: . #100005 
8452 020112 000004 EMONG2-2- 
8453 020114 040 002 051 . BYTE 40, 2,51,0 
020117 000 

8454 020120 EMDNG2: 
S4ss 
S456 "Saks: 
me 2 ;ACK MESSAGE AREA 
8459 020120 005 001 200 REP: . BYTE ENQ, ACK. 200 
8460 020123 000 REPN: . BYTE O 
8461 020124 000 MSGN: . BYTE 0 
8462 020125 000 REPA: . BYTE 9 
et 02012€ 000000 REPCRC: . WORD 0 

491 
8492 POOL OOO DO OOO OOOO OOOO OOOOOOQOOOVDOOOO 
8493 ; «> 
8494 LOOPBACK TEST «> 
8495 ; “> 
8496 SEEDED OQ OOK ,O OOOO OOOOOOO OOOO OO OOQOOO OOO 
8498 ; 
8499 >CLEAR ALL FLAGS 
8500 : 
8501 020130 016767 157644 161756 MOV 0, ABORT 
8502 020136 016767 157636 161760 MoV 0. EOMSG 
oe 020144 016767 1576230 161756 MOV 0, EXP INP 
8505 > START THE LINK CINIT DEVICE. DO DOCMP STRT) 
8506 
ape 020152 004767 172402 JSR PC. XSTRT 
8509 ;1F ERROR DURING START-UP... INSERT INTO TABLE ‘MANUF. TESTS ONLY. REPORT 
#510 ;1T. LOOP IF ENABLED--EXIT IF NOT 
8511 ; 
8512 020156 10305 BCC 500078 
8513 020160 010546 MoV RS, -(SP) 

(4) 020162 012745 000000 MOV #0. -(R5) 

(3) 020166 004767 176356 JSR PC. INSERR 

(3) 020172 012605 MoV (SP)+,R5 
8514 020174 104463 TRAP TSERCODE 

(5) 020176 000063 -WORD 51 

(5) 020200 OO03344 WORD M35G51 

(5) 020202 004110 .WORD AREAYO 
8515 020204 104006 ENT CSCLP1 
8516 020206 104032 EMT CSEXIT 

(3) 020210 OO004%6 . HO L10032- 
te 020212 50007$ 

1 : 

8519 SFILL MESSAGE AREA WITH 256 BYTES OF SELECTED PATTERN 
8520 ; 
8521 020212 010146 MoV R1i,-(SP) 
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020214 
020220 
020224 
020226 
020232 
020234 
020234 
020242 
020242 
020242 
020246 
020252 


020254 
020260 
020262 


020266 
020272 
020276 
020302 


020304 


020312 


020320 


020342 
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012701 
005767 
001403 
005067 
000403 


012767 


016721 
020127 
001373 


012701 
005301 
112711 


012701 
062701 
111167 
01260! 


112767 


112767 


162705 
010546 
012745 
012745 
004767 
012605 
012557 


012567 
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END TO ASSURE THAT THE FINAL BYTE 


1S NOT NULL (0) 


;GET THE STATION ADDRESS AND INSERT IT IN THE HEADER 


021016 Mov #LOOPB, R1 
171232 TST PATTERN 
BEQ 50010$ 
161650 CLR SCRTCH 
BR 50011$ 
500108: 
125125 161640 Mov #125125, SCRTCH 
500115: 
500125. 
161634 Mov SCRTCH, (R1)+ 
021416 CMP Ri, #ELOOPB 
| BNE 50012$ 
[PUT A 1 AT THE 
021416 j Mov #ELOOPB. RI 
DEC Ri 
000001 MOVE = 1, (RI) 
002170 MoV SPTABLE,R1 
900005 ADD #5, R1 : 
000511 MOVE —s«(R1), LOOSTA 
MOV (SP)+,R1 
[INSERT LOOP DATA TYPE 
000024 00504 MOVB  #OSOP. LOOPB 
SET MESSAGE NUMBER 
000001 900472 ~~ MOVB «#1, LOOPN 
[COMPUTE AND INSERT HEADER CRC 
000002 ‘ SUB #142. R5 , 
Mov RS, - (SP) 
000006 MoV #6. -(RS) 
021006 MOV #LOOPH, -(RS) 
176210 JSR PC, CRC 
MoV (SP)+,R5 
00044" Nov (RS) +. LCRCH 
[COMPUTE AND INSERT DATA CRC 
e00002 SUB #142. R5 
MOV RS, - (SP) 
000400 Mov #256. .- (RS) 
021016 MOV #LOOPB. - (RS) 
176160 JSR PC, CRC 
HOU (SP) +, RS 
001016 MOV (RS) +. LCRCD 


“SET UP BUFFER POINTER AND SIZE. 


SEND MESSAGE 


SEQ 0065 
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8561 020400 012767 021006 174772 MOV #LOOPH, XBUFFER ' 
8562 020406 012767 GO00412 174766 MOV #266. . XSIZE 
$563 020414 004767 174052 JSR PC, XMIT 
8565 ; IF ERROR OCCURRED... INSERT THE ERROR INTO TABLE (MANUF. TESTS ONLY). 
8566 ;REPORT THE ERROR, LOOP IF ENABLED 
8568 020420 103012 BCC 50013% 
8569 020422 010546 MOV R5, -(SP) 
(4) 020424 012745 o90000 MOV #0,-(RS) . 
(3) 020430 004767 176114 JSR PC, INSERR 
(3) 70434 012605 MOV (SP)+,R5 
8570 20436 104463 TRAP TSERCODE 
‘S) 020440 000063 WORD 51 
(5) 020442 003344 WORD MSG51 
(5S) 020444 004110 WORD AREALO 
8571 O20446 500135: 
s7¢ oz0446 104006 CSCLP1 
8574 ;SEND ACK'S TO TERMINAL UNTIL IT RESPONDS 
8576 020450 500145: 
$577 020450 O04767 177124 JSR PC, OUTREP 
8579 > 1F AN ERROR OCCURS... INSERT IN TABLE (MAN. ONLY), REPORT IT. LOOP 
$80 > IF ENABLED - EXIT TEST IF NOT 
1 ; 
8582 020454 103023 BCC 50015$ 
8583 020456 010546 MoV RS, -(SP) 
(4) 020460 012745 on00000 MOV #0,-(RS5) 
(3) 020464 004767 176060 JSR PC, INSERR 
(3) 020470 012605 MoV (SP)+,R5 
8584 020472 610546 MoV RS, -(SP) 
(4) 020474 012745 o00002 MoV #2.-(R5) 
(3) 020500 004767 176044 JSR PC, INSERR 
(3) 020504 012605 MoV (SP)+,R5 
8685 020506 104463 TRAP TSERCODE 
(S) 020510 000063 ; WORD § 51 
(S) 020512 003344 WORD ®MSG51 : 
(S; 020514 004110 WORD AREAYO 
8586 020516 104006 EMT CSCLP1 
8587 020520 104032 EMT CSEXIT 
(3) 020522 9000134 L10032- 
8588 020524 500155: 
8589 ; 
8590 > GET RESPONSE 
8591 
8592 020524 162705 9000002 SUB #1%2.R5 
(3) 020530 004767 172724 JSR PC, TERIN 
(4) 020534 012567 000240 MoV (R5)+, LCOMP 
8593 : 
8594 IF ERROR OCCURS... INSERT IN TABLE (MAN. ONLY). REPORT IT. LOOP IF 
8595 -ENABLED. EXIT TEST IF NOT 
8596 
8597 020540 103012 BCC 50016$ 
85938 020542 010546 MOV =. RE, - (SP) 
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020544 
020550 
020554 
020556 
020560 
020562 
020564 
020566 
020566 


020570 
020574 


020576 
O20e002 


020604 


020610 
020612 
020614 
020620 
020624 
020626 
020630 
020634 
020640 
020642 
020644 
020646 
020650 
020652 
020652 
020654 
020654 


020656 
020656 


012745 
004767 
012605 
104463 
000063 
003344 
004110 


104006 


00£767 
001725 


004767 
1046004 


004767 


103020 
010546 
012745 
004767 
012605 
010546 
012745 
004767 
012605 
104463 
000063 
003344 
004622 


104006 
104005 


104001 
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000000 
175774 


000204 


000056 


171750 


000000 
175724 


000002 
175710 


SEQ 0067 


MOV #0, -(R5) 
JSR PC. INSERR 


MOV (SP)+, R5 

TRAP  TSERCODE 

“WORD 51 

“WORD MSG51 

WORD AREA 
500165: 

EMT C$CLP1 
REPEAT LOOP UNTIL TERMINAL SENDS LOOPBACK DATA 
; TST LCOMP 


BEQ 50014S 
[PROCESS THE LOOPBACK DATA 


ISR PC, PROLOP 
EMT CS$BSEG 


SREINIT THE LINK 
| JSR PC, XSTRT 


> IF ERROR OCCURS. iNSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR, 
;LOOP ON REINIT IF ERROR LOOPING ENABLED... EXIT TEST IF NO LOOPING 


BCC 500175 
MOV RS. -(SP) 


MoV #0, -(R5) 
JSR PC, INSERR 
MoV (SP)4+,R5 
MOV R5,-(SP) 
MoV #2--(R5) 
JSR PC, INSERR 
MOV (SP)+,R5 
TRAP TSERCODE 
. WORD 51 
WORD MSG51 
WORD AREAbI 
500178: 
EMT CSCLP1 
100008: 
ENT CSESEG 
>END OF TEST 
L10032: 
EMT CSETST 


SHEFF EFEEFHE HEHEHE EHH SHEE EHH EES EEE HEHEHE H ete eee see eee tet tee set stesso seee 
; + 
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020660 
020660 
020662 
020664 


020666 
020672 
020676 


020702 


020702 
020704 
020706 
020712 
020716 
020720 
020724 
020730 
020732 
020734 
020736 
020740 
020742 
020744 
020746 
020750 
020752 
020754 


020754 
020756 
020760 


020762 
020764 
020766 
020770 
020772 
029774 


010146 
010246 
010346 


012701 
012702 
016703 


121113 
001423 
011167 
011367 
010546 
012745 
004767 
012605 
104464 
000064 
003372 
004752 
012603 
012602 

12601 
000261 
000411 


005201 
005302 
005203 


005702 
0013"6 
012603 
012002 
012601 
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021016 
000200 
161244 


1604136 
164134 


000002 
175620 


; ROUTINE TO PROCESS LOOPBACK DATA ; 
OVC CTTOCCCTTCSECCCCCCTeCetecreccr cer ecrrccrtrrtccrerrccrrccrccs. 
PROLOP: 


MOV Ri,-(SP) 
MOV R2,-(SP) 
MOV. R3,- (SP) 


POINTER TO EXPECTED DATA 
COUNT OF DATA EXPECTED 
POINTER TO DATA FROM TERMINAL 
MoV #LOOPB.R1 
MOV #128. ,R2 
MOV INBUF.R3 
[CHECK DATA BYTE-BY-BYTE. . 
50002: 


iF ERROR... INSERT ERROR INTO TABLE (MANUF. ONLY), REPORT ERROR 
> CINCLUDING RECEIVED/EXPECTED BYTES). RETURN WITH ERROR 


. CMPB (R14), (RB) 
BEQ £00035 


ca *] 
Whe 
nue 


Sa S Se Ge BE 


MOV (R1),A52A 
MOV (R3). A528 
MoV RS, -(SP) 
MOV #2, -(R5) 
JSR PC, INSERR 
MOV (SP)+,R5 
TRAP TSERCODE 
WORD 2 
WORD. MSG52 
WORD AREAS2Z 
MOV (SP)+,R23 
MOV (SP)+,R2 
MOV (SP)+4.R1 
SEC 
BR 50001 
50003%: 
> UPDATE COUNT AND POINTERS 
INC R1 
DEC R2 
INC R3 
>REPEAT UNTIL ALL DATA HAS BEEN CHECKED 
TST R2 
BNE 50002$ 
MoV (SP)+,.R3 
MoV (SP)4,R2 
MoV (SP i+, R1 
500008: 


SEQ 0068 


OUTERR- 
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020774 
020776 
020776 


021000 
021002 
021004 
021006 
021011 
021012 
021013 
021014 
021016 
O21416 
C2416 
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000241 
000207 


000000 
121007 


000009 
000200 


000000 


500015: 
PC 


[LOOPBACK MESSAGE AREA 

LCOMP: 0 

LOOPMG: . +100005 
ELOOPB-2-. 

LOOPH: . BYTE DLE,O, 201.0 


LOOPN: . BYTE 0 
LOOSTA: .BYTE 0 


LOOPB. -BLKW 128 


SEQ 0069 


OUTERR 


MACY11 30(1046) 
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8990 


8992 


021420 
021422 
021424 
021426 
021430 
021432 
021434 
021436 
021440 
021442 
021444 
021446 
021450 
021452 
021454 
02145¢€ 
021460 
021462 
021464 
021466 
021470 
021472 
021474 
021476 
021500 
021502 
021504 
021506 
021510 
021512 
021514 
021516 
021520 
021522 


021524 


021524 
021532 
021540 
021541 
021546 


021630 


000041 
000031 
021524 
000000 
177776 
001031 
021541 
000000 
000400 
002032 
021555 
000340 
000000 
000007 
002032 
021577 
177400 
coo000 
000377 
003032 
021622 
000007 
000000 
000007 
003032 
021640 
007400 
000000 
000017 
003032 
021654 
000070 
o00v000 
000007 


055104 


046525 


22-NOV-77 07:50 PAGE 190 
21-NOV-77 14:55 


040440 
051523 


020132 
051117 


020132 
051120 
054524 


051105 
020114 
051505 


042516 
042502 


042104 
020072 


042526 
020072 


052502 
047511 
020072 


044515 
042101 
035123 


047040 
035122 


L10033: 
DEVICE: 


VECTOR: 


PRICR: 


STATION: 


LINe 


HARDWARE PARAMETER CODING 
. WORD L10033-LSHARD/2 
.WORD TSCODE 


WORD 
WORD 
EVEN 


. ASCIZ 
. ASCIZ 


.ASCIZ 


ASC IZ 


7 
TSLOLIM 
TSHILIM 
TSCODE 


TSLOL IM 
TSHILIM 


‘D2 ADORESS. 
/OZ VECTOR: / 


/DZ BUS PRIORITY: 
/TERMINAL ADDRESS 


CLINE NUMBER: 
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021640 O40502 042125 051040 


021646 


021654 
021662 
021670 
021676 
021704 
021712 


021720 
021722 
021724 
021726 
021730 
021732 
021734 
021736 


052101 


052123 
042117 
051101 
043516 
042523 
027103 


000010 
000032 
021742 
177777 
000000 
07777? 
001130 
022011 


035105 


050117 
027505 
020056 
044124 
020105 
035051 


000040 


041440 
044103 
042514 
024C40 
047504 
000040 


BAUD: .ASCIZ /BAUD RATE: / 
:BAUD RATE SELECTION: 
; TYPE TO GET BAUD RATE 


[BAUD RATE SELECTION: 
YPE TO GET THIS RATE 


See ee NT SWN O44 
w 
rs) 
Oo 


Celi celica 
NOMS outm—O 
N 
t 
oO 
oO 


FLAGZ. .ASCIZ aSTOP CODE/CHAP. LENGTH ‘(SEE DOC. » 


ALLOWABLE RESPONSES 


Q = 1 STOP BIT - 5 BIT CHAP 
_* ; 4 Se 
> > 7 4 2 ow 7 
4 = esto eit-g * * 
5 = " oe & " , 
be = ” = ? " 

? = " a § ” 

EWEN 


SOFTWARE PARAMETER CODING 


WORD L10034-LSSOFT/2 
-WORD TSCODE 

WORD ALIMIT 

WORD = 177777 

WORD TSLOLIM 

WORD TSHILIM 

WORD TSCODE 

WORD PRTTRN 


SEQ 0071 


a 








OUTERR 
DZ202CA 
(4) 
9043 


_ 


(3) 
9044 


3045 


MACY11 3001046) 


Pll 


021742 
021742 
021750 
021756 
021764 
021772 
022000 


022054 


O71 7e 


177777 


047510 
054516 


052101 


os2754 
O7177e 
oococe 
072009 
oool00 
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020127 
O44440 
052101 
042511 
047506 
047502 

000 
042523 
055040 
020123 
047514 
045503 
037501 


040515 
044516 
020105 
020123 
042522 
052122 


040440 
051105 
047506 
050117 
042040 
900040 


L10034: 
ALIMIT. 


PATTRN: 


LSLAST: : 


WORD = 177777 
_ EVEN 


.ASCIZ ZHOW MANY INITIATE TRIES BEFORE ABORT? 7 


ASC1Z ZUSE ALL ZERO'S FOR LOOPBACK DATA? / 


_ EWEN 
_ EVEN 


REQ DOCTOR. P11 400. 1066 . 
TITLE POP-11 DIAGNOSTIC SUPERVISOR 

ENO. SUPV=. +2 

271776 


WORD 0 


SEQ 0072 


QUTERP MACY11 30(104%6) 


DOCTOR. P11 


000000 
022326 
022240 
002106 
025202 
000001 
021742 
042772 
003526 
003606 
003610 
003712 
003744 
004046 
004104 
004106 
004110 
004110 
004302 
004 304 
004304 
004110 
003744 
003712 
003744 
004752 
004544 
004622 
005054 
005056 


G 
G 


on HOOOOoOoOoOoOmM 


ononann 


AOoaonoon 
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T1 


000040 


onnunnnnnnnnnn nnn oo 
oO 
id 
Oo 
oO 
oO 
o 


oonon oa 


G 


OOOOOOOOOOOOOOOOOMoa 


Qo 


CSEXIT= 
CS$GMAN= 
CSGPHR= 
CSGPRI= 
CSGTIM= 
CSINIT= 
CSINLP= 
CSKWOF = 
CSKWON= 
CSLOOP= 
CSMANI= 
CSNSG = 
CSPNTB= 
CSPNTF= 
CSPNTS= 
CSPNTX= 
CSPOIN= 


045566 


000040 


o oo 





000377 


000011 
009012 


oo Ano oOo 


OOOOOOOOOOMOOOOH 


m 

~ 

oe 

» 
nuuuuwh & 


000013 


0 
000007 
000016 


AOooooMD 


SEQ 0073 > 


OUTERR MACY11 3001046) 


DOCTOR. P14 


ry 
sf 
~ 
~o 
pr 
vndnewntunnnnwnwn 


000041 
000004 
000013 
000006 
000050 
000000 


002116 


ag 
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ININIT 


022256 G 


022104 G 
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SYMBOL TABLE 


LPCNTR 


L10002 


022102 
026672 


003640 


OOOOOOOOOOHOOOOOOOOMOOMOMOOHOOMOOMOOOOOOMOOOOHOOMOOOM 


003742 


002534 


o o 


oon 


002567 


000001 


SEQ 0074 


a ed 


OUTERR MACY11 30(104%6) 


DOCTOR. P11 


PARITY= 
PARSES 
PAR. LA 
PASCNT 
PATTER 
PATTRN 
PRINTC 
PRINTF 
PRIOR 
PR100 
PRIO1 
PR1IO02 
PRIOZ 
PRIO4 
PRIOS 
PRI06 
PRi07 
PRNTST 


000200 
045020 
041012 
002122 
011456 
022011 
042632 
046134 
021555 
000000 
000040 


015612 


07-OCT-77 


Oooo ooon 


oon 


2 
13 
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RMSGNO 


002166 


042212 
027014 
000006 
003516 
003524 
003523 
027250 
027170 
023514 
027256 
025234 
022242 
022420 
023266 
177777 


000000 
031566 


000000 
177777 
177777 


000000 
177777 
027074 
045464 
027060 


oon oa 


a 


O PAGE 191-2 
SYMBOL TABLE 


SYNC = 


TSSUBN= 


000377 
7 


0 
000000 


o oo 


TSTAGL= 177777 


XTIMEN 051020 
XTIMST 050216 
XXDP.D 027042 
XSALWA= 000000 


X$FALS= 


000040 


050003 


SEQ 0075 


OUTERR MACY11 30(104%6) 


DOCTOR. P11 


STAGLE= 177777 
STAGNU= 050004 


STEMP = 000300 
$TSKO = 050002 
STSK1 = 050003 
S$TSK2 = 050006 


. ABS. 072000 


ERRORS DETECTED: 
-O02Z02CA=D2D2CA 


000 


0 


S$TSK3 = 050030 
SSARGC= 000000 
SSBYTE= 000402 
SSCASE= 000000 


$$DST = 000003 
SSELOC= 000402 


RUN-TIME: 95 96 .9 SECONDS 
PUN-TIME PATIO: 733/193=3. 7 


CORE USED: 36k 


(71 PAGES) 
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SSERFL= 000000 
S$SFLAG= 000001 
SSFROM= 000000 
$$LOC = 020764 
SS$LOCN= 000000 
SSREG = 177777 


$SRETU= 000001 


$ 
$$TGSi= 000000 


$$TGS2= 000000 
$$TO0 = 000001 
$$$TAG= 050000 
= 072000 


SEQ 0076 


